/* Anakrino - .NET Reflection Browser
 * Copyright (C) 2001-2002  Jay Freeman (saurik)
*/

/*
 *        Redistribution and use in source and binary
 * forms, with or without modification, are permitted
 * provided that the following conditions are met:
 * 
 * 1. Redistributions of source code must retain the
 *    above copyright notice, this list of conditions
 *    and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the
 *    above copyright notice, this list of conditions
 *    and the following disclaimer in the documentation
 *    and/or other materials provided with the
 *    distribution.
 * 3. The name of the author may not be used to endorse
 *    or promote products derived from this software
 *    without specific prior written permission.
 * 
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS''
 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING,
 * BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
 * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE
 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
 * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
 * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
 * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR
 * TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
 * ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
 * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/

#ifndef ANAKRINO_TACHYONVIEWER_H
#define ANAKRINO_TACHYONVIEWER_H

#if _MSC_VER >= 1000
#pragma once
#endif // _MSC_VER >= 1000

#include "dialect/dialect.h"
#include "dialect/IDialect.h"

#include "anakrino/IBrowser.h"
#include "anakrino/IViewer.h"

#include "theoretic/IEngine.h"

#undef TACHYON_JAVA

namespace Anakrino {

class TachyonViewer :
	public CWindowImpl<TachyonViewer, CEdit /*CRichEditCtrl*/ >,
	public Diapexis::Unknown,
	public IViewer
{

	DIAPEXIS_OBJECT(TachyonViewer)

	DIAPEXIS_QUERY_BEGIN(TachyonViewer)
	DIAPEXIS_QUERY_MAP(Diapexis::Unknown)
	DIAPEXIS_QUERY_MAP(IViewer)
	DIAPEXIS_QUERY_END()

  protected:
	IBinder *binder;
	IBrowser *viewer;

	CFont font;
	CBrush backing;

#ifdef TACHYON_JAVA
	JavaVM *jvm;
	JNIEnv *env;

	jclass c_org_ninetjer_ilel_Engine;
	jmethodID m_org_ninetjer_ilel_parse;
	jobject engine;
#else
	Theoretic::IEngine *engine;
#endif

  public:
	DECLARE_WND_SUPERCLASS(NULL, CEdit::GetWndClassName())

	BOOL PreTranslateMessage(MSG* /*pMsg*/) {
		return FALSE;
	}

	BEGIN_MSG_MAP(Tachyon)
		MSG_WM_CTLCOLORSTATIC(OnCtlColorStatic)
	END_MSG_MAP()

	virtual operator HWND() const { return m_hWnd; }

	//DESTROY!?! jvm->DestroyJavaVM();

	HWND Initialize(IBinder *binder, HWND parent) {
		this->binder = binder;
		backing.CreateSolidBrush(RGB(255,255,255));
		Create(parent, rcDefault, NULL, WS_CHILD | WS_VISIBLE | WS_CLIPSIBLINGS | WS_CLIPCHILDREN | WS_HSCROLL | WS_VSCROLL | ES_AUTOHSCROLL | ES_AUTOVSCROLL | ES_MULTILINE | ES_NOHIDESEL | ES_SAVESEL | ES_READONLY, WS_EX_STATICEDGE);
		SetFont(font.CreatePointFont(90, L"Lucida Console"));
		SetTabStops(16);

#ifdef TACHYON_JAVA
		JavaVMOption options[1];
		options[0].optionString = "-Djava.class.path=java;"
									"java/Xalan/BCEL.jar;"
									"java/Xalan/xalan.jar;"
									"java/Xalan/xercesImpl.jar;"
									"java/Xalan/xml-apis.jar;"
									"java/Xalan/xsltc.jar";

		JavaVMInitArgs vm_args;
		vm_args.version = JNI_VERSION_1_4;
		vm_args.options = options;
		vm_args.nOptions = 1;
		vm_args.ignoreUnrecognized = 1;

		jint res = JNI_CreateJavaVM(&jvm, (void **) &env, &vm_args);

		c_org_ninetjer_ilel_Engine = env->FindClass("org/ninetjer/ilel/Engine");
		m_org_ninetjer_ilel_parse = env->GetMethodID(c_org_ninetjer_ilel_Engine, "parse", "([B)Lorg/ninetjer/ilel/Instruction;");

		engine = env->NewObject(c_org_ninetjer_ilel_Engine, env->GetMethodID(c_org_ninetjer_ilel_Engine, "<init>", "(Ljava/lang/String;)V"), env->NewString(L"msil", 4));
#else
		engine = Theoretic::IEngine::GetInstance(L"msil");
#endif

		//SetWindowPos(NULL, 10, 10, 20, 20, SWP_NOZORDER);
		return m_hWnd;
	}

	HBRUSH OnCtlColorStatic(HDC wParam, HWND lParam) {
		return backing;
	}

	bool Supports(const Metallurgy::Token *token) {
		if (token == NULL)
			return false;
		switch (token->getTokenType()) {
			case Chordata::Tokens::mdtMethodDef:
				return true;
			default:
				return false;
		}
	}

	wcstr_t GetName() {
		return L"Tachyon";
	}

	void Select(const Metallurgy::Token *token);
};

}


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

//{{AFX_INSERT_LOCATION}}

#endif//ANAKRINO_TACHYONVIEWER_H