var lang = 1;        // 1: Persian, 0: English
var nativelang = 0;  // 1: Persian, 0: English

// Persian keyboard map based on ISIRI-2901

var isirikey = [
  0x0020, 0x0021, 0x0022, 0x0023, 0xFDFC, 0x066A, 0x060C, 0x06AF,
  0x0029, 0x0028, 0x002A, 0x002B, 0x0648, 0x002D, 0x002E, 0x002F,
  0x06F0, 0x06F1, 0x06F2, 0x06F3, 0x06F4, 0x06F5, 0x06F6, 0x06F7,
  0x06F8, 0x06F9, 0x003A, 0x06A9, 0x003E, 0x003D, 0x003C, 0x061F,
  0x0040, 0x064E, 0x0625, 0x0698, 0x0650, 0x064D, 0x0651, 0x0623,
  0x0622, 0x0629, 0x0629, 0x00BB, 0x00AB, 0x0621, 0x0623, 0x005D,
  0x005B, 0x064B, 0xFDFC, 0x064F, 0x060C, 0x005C, 0x0624, 0x064C,
  0x064A, 0x061B, 0x0629, 0x062C, 0x067E, 0x0686, 0x005E, 0x0640,
  0x00F7, 0x0634, 0x0630, 0x0632, 0x06CC, 0x062B, 0x0628, 0x0644,
  0x0627, 0x0647, 0x062A, 0x0646, 0x0645, 0x0626, 0x062F, 0x062E,
  0x062D, 0x0636, 0x0642, 0x0633, 0x0641, 0x0639, 0x0631, 0x0635,
  0x0637, 0x063A, 0x0638, 0x007D, 0x007C, 0x007B, 0x00D7, 0
];

// on Alt+Ctrl+anything, switch language
function PersianKeyDown(e)
{
	/*
	if (window.event)
		e = window.event;
	if (e.ctrlKey && e.altKey)
	{
		if (lang == 0)
			setPersian();
		else
			setEnglish();
		try
		{
			e.preventDefault();
		} catch (err) { }
		return false;
	}
	*/
	return true;
}

//var pk_test_ev;

function PersianKeyPress(e,digitsOnly)
{
	var key;
	var obj;
	
	// Capture event for IE
	if (window.event)
	{
		e = window.event;
		obj = e.srcElement;
		key = e.keyCode;
	}
	// Capture event for FF
	else
	{
		obj = e.target;
		key = e.charCode;
	}
	
	if (e.bubbles==false)
		return true;

	// This cannot be used anymore, in FF 1.5.0.2, as a new event will call keypress again.
	// Change to English, if user is using an OS non-English keyboard [now modified to:]
	// Alert and force user to change system language to english.
	if (key >= 0x00FF)
	{
		// change key to 0x007F to pass through (LABEL 1) if. using 0 for event.keyCode (isirikey[0x007F - 0x0020] = 0)
		key = 0x007F;
		alert('لطفاً زبان سیستم خود را به انگلیسی تغییر دهید');
	}
	else if (key == 0x000D) //if ENTER pressed. do nothing.
		key = 0x007F;
	else if (nativelang == 1)
	{
		nativelang = 0;
		setEnglish();
	}


	// Avoid processing if control or higher than ASCII
	// Or ctrl or alt is pressed. (LABEL 1);
	if (key < 0x0020 || key > 0x007F || e.ctrlKey || e.altKey || e.metaKey)
		return true;

	if (lang == 1)  //If Persian
	{
		// rewrite key
		var newkey;
		if(digitsOnly)
		{
			if(key < 0x0030 || key > 0x0039)
				newkey = 0;
			else
				newkey = key;
		}
		else
		{
			if (key == 0x0020 && e.shiftKey) // Shift-space -> ZWNJ
				newkey = 0x200C;
			else
				newkey = isirikey[key - 0x0020];
		}
		
		if (newkey == key) 
			return true;

		try
		{
			// Gecko
			var new_event=document.createEvent("KeyEvents");
			new_event.initKeyEvent("keypress", false, true, document.defaultView, false, false, false, false, 0, newkey);
			obj.dispatchEvent(new_event);
			e.preventDefault();
		} catch (err)
		{
			try
			{
			// Windows
				e.keyCode = newkey;
			} catch (err)
			{
				try
				{
				// Gecko after banning fake key emission (FF 1.0.6 to FF 1.5.0.1)
				// Try inserting at cursor position
					pnhMozStringInsert(obj, String.fromCharCode(newkey));
					e.preventDefault();
				} catch (err)
				{
				// Everything else, simply add to the end of buffer
					obj.value += String.fromCharCode(newkey);
					e.preventDefault();
				}
			}
		}
	}
	return true;
}

function setPersian (obj, quiet)
{
	quiet = true;
	lang = 1;
	if (obj)
	{
		obj.style.textAlign = "right";
		obj.style.direction = "rtl";
		obj.focus();
	}
	if (!quiet)
		window.defaultStatus = "Persian Keyboard (Press Ctrl+Alt+Space to change to English)";
}

function setEnglish (obj, quiet)
{
	quiet = true;
	lang = 0;
	if (obj)
	{
		obj.style.textAlign = "left";
		obj.style.direction = "ltr";
		obj.focus();
	}
	if (!quiet)
		window.defaultStatus = "English Keyboard (Press Ctrl+Alt+Space to change to Persian)";
}

function toggleDir (obj, picid, quiet)
{
	var isrtl = 0;
	if (obj)
		isrtl = obj.style.direction != 'ltr';
	else
		isrtl = lang;
		
	if (isrtl)
	{
		setEnglish(obj, quiet);
		//document.getElementById(picid).src = 'images/glb_en.gif';
	}
	else
	{
		setPersian(obj, quiet);
		//document.getElementById(picid).src = 'images/glb_fa.gif';
	}
}

// Inserts a string at cursor
function pnhMozStringInsert(elt, newtext)
{
	var posStart = elt.selectionStart;
	var posEnd = elt.selectionEnd;
	var scrollTop = elt.scrollTop;
	var scrollLeft = elt.scrollLeft;

	elt.value = elt.value.slice(0,posStart)+newtext+elt.value.slice(posEnd);
	var newpos = posStart+newtext.length;
	elt.selectionStart = newpos;
	elt.selectionEnd = newpos;	
	elt.scrollTop = scrollTop;
	elt.scrollLeft = scrollLeft;
	elt.focus();
}

function avoidEnter(ev)
{
	var k;
	var ob;
	
	if (window.event)
	{
		ev = window.event;
		ob = ev.srcElement;
		k  = ev.keyCode;
	}
	else
	{
		ob = ve.target;
		k  = ev.charCode;
	}
	
	if (ev.bubbles==false)
		return true;
		
	if(k == 13)
	{
		var newk = 0;
		try
		{
      // Gecko 
			var new_ev=document.createEvent("KeyEvents");
			new_ev.initKeyEvent("keypress", false, true, document.defaultView, false, false, false, false, 0, newk);
			ob.dispatchEvent(new_ev);
			ev.preventDefault();
		} catch (err)
		{
			try
			{
			// Windows
				ev.keyCode = newk;
			} catch (err)
			{
				try
				{
				// Gecko after banning fake key emission (FF 1.0.6 to FF 1.5.0.1)
				// Try inserting at cursor position
					pnhMozStringInsert(ob, String.fromCharCode(newk));
					ev.preventDefault();
				} catch (err)
				{
				// Everything else, simply add to the end of buffer
					ob.value += String.fromCharCode(newk);
					ev.preventDefault();
				}
			}
		}
	}
	return true;
}