/*
 * File Name: multihexa.js
 * 	Scripts for the fck_universalkey.html page.
 * 	Definition des 104 caracteres en hexa unicode.
 * 
 * File Authors:
 * 		Michel Staelens (michel.staelens@wanadoo.fr)
 * 		Bernadette Cierzniak
 * 		Abdul-Aziz Al-Oraij (top7up@hotmail.com)
 */

var caps=0, lock=0, hexchars="0123456789ABCDEF", accent="0000", keydeb=0;
var key=new Array();j=0;for (i in Maj){key[j]=i;j++;}
var ns6=((!document.all)&&(document.getElementById));
var ie=document.all;

var langue=getCk();
if (langue==""){
	langue=key[keydeb];
}
CarMaj=Maj[langue].split("|");CarMin=Min[langue].split("|");

/*unikey*/
var posUniKeyLeft=0, posUniKeyTop=0;
if (ns6){posUniKeyLeft=0;posUniKeyTop=60;}
else if (ie){posUniKeyLeft=0;posUniKeyTop=60;}
tracer("fond",posUniKeyLeft,posUniKeyTop,'<img src="keyboard_layout.gif" width=404 height=152 border="0"><br />',"sign")
/*touches*/
var posX=new Array(0,28,56,84,112,140,168,196,224,252,280,308,336,42,70,98,126,154,182,210,238,266,294,322,350,50,78,106,134,162,190,218,246,274,302,330,64,92,120,148,176,204,232,260,288,316,28,56,84,294,322,350);
var posY=new Array(14,14,14,14,14,14,14,14,14,14,14,14,14,42,42,42,42,42,42,42,42,42,42,42,42,70,70,70,70,70,70,70,70,70,70,70,98,98,98,98,98,98,98,98,98,98,126,126,126,126,126,126);
var nbTouches=52;
for (i=0;i<nbTouches;i++){
	CarMaj[i]=((CarMaj[i]!="0000")?(fromhexby4tocar(CarMaj[i])):"");
	CarMin[i]=((CarMin[i]!="0000")?(fromhexby4tocar(CarMin[i])):"");
	if (CarMaj[i]==CarMin[i].toUpperCase()){
		cecar=((lock==0)&&(caps==0)?CarMin[i]:CarMaj[i])
		tracer("car"+i,posUniKeyLeft+6+posX[i],posUniKeyTop+3+posY[i],cecar,((dia[hexa(cecar)]!=null)?"simpledia":"simple"))
		tracer("majus"+i,posUniKeyLeft+15+posX[i],posUniKeyTop+1+posY[i],"&nbsp;","double")
		tracer("minus"+i,posUniKeyLeft+3+posX[i],posUniKeyTop+9+posY[i],"&nbsp;","double")
	}
	else{
		tracer("car"+i,posUniKeyLeft+6+posX[i],posUniKeyTop+3+posY[i],"&nbsp;","simple")
		cecar=CarMin[i]
		tracer("minus"+i,posUniKeyLeft+3+posX[i],posUniKeyTop+9+posY[i],cecar,((dia[hexa(cecar)]!=null)?"doubledia":"double"))
		cecar=CarMaj[i]
		tracer("majus"+i,posUniKeyLeft+15+posX[i],posUniKeyTop+1+posY[i],cecar,((dia[hexa(cecar)]!=null)?"doubledia":"double"))
	}
}
/*touches de fonctions*/
var actC1=new Array(0,371,364,0,378,0,358,0,344,0,112,378)
var actC2=new Array(0,0,14,42,42,70,70,98,98,126,126,126)
var actC3=new Array(32,403,403,39,403,47,403,61,403,25,291,403)
var actC4=new Array(11,11,39,67,67,95,95,123,123,151,151,151)
var act  =new Array(" « KB"," KB » ","Delete","Clear","Back","Caps<br> Lock","Enter","Shift","Shift","<|<","Space",">|>")
var effet=new Array("keyscroll(-3)","keyscroll(3)","faire(\"del\")","RAZ()","faire(\"bck\")","bloq()","faire(\"\\n\")","haut()","haut()","faire(\"ar\")","faire(\" \")","faire(\"av\")")
var nbActions=12
for (i=0;i<nbActions;i++){
	tracer("act"+i,posUniKeyLeft+1+actC1[i],posUniKeyTop-1+actC2[i],act[i],"action")
}
/*navigation*/
var keyC1=new Array(35,119,203,287)
var keyC2=new Array(0,0,0,0)
var keyC3=new Array(116,200,284,368)
var keyC4=new Array(11,11,11,11)
for (i=0;i<4;i++){
	tracer("key"+i,posUniKeyLeft+5+keyC1[i],posUniKeyTop-1+keyC2[i],key[i],"unikey")
}
/*zones reactives*/
tracer("masque",posUniKeyLeft,posUniKeyTop,'<img src="00.gif" width=404 height=152 border="0" usemap="#unikey">')
document.write('<map name="unikey">')
for (i=0;i<nbTouches;i++){
	document.write('<area coords="'+posX[i]+','+posY[i]+','+(posX[i]+25)+','+(posY[i]+25)+'" href=# onClick=\'javascript:ecrire('+i+')\'>')
}
for (i=0;i<nbActions;i++){
	document.write('<area coords="'+actC1[i]+','+actC2[i]+','+actC3[i]+','+actC4[i]+'" href=# onClick=\'javascript:'+effet[i]+'\'>')
}
for (i=0;i<4;i++){
	document.write('<area coords="'+keyC1[i]+','+keyC2[i]+','+keyC3[i]+','+keyC4[i]+'" onclick=\'javascript:charger('+i+')\'>')
}
document.write('</map>')

/*fonctions*/
function ecrire(i){
	txt=rechercher()+"|";subtxt=txt.split("|")
	ceci=(lock==1)?CarMaj[i]:((caps==1)?CarMaj[i]:CarMin[i])
	if (test(ceci)){subtxt[0]+=cardia(ceci);distinguer(false)}
	else if(dia[accent]!=null&&dia[hexa(ceci)]!=null){distinguer(false);accent=hexa(ceci);distinguer(true)}
	else if(dia[accent]!=null){subtxt[0]+=fromhexby4tocar(accent)+ceci;distinguer(false)}
	else if(dia[hexa(ceci)]!=null){accent=hexa(ceci);distinguer(true)}
	else {subtxt[0]+=ceci}
	txt=subtxt[0]+"|"+subtxt[1]
	afficher(txt)
	if (caps==1){caps=0;MinusMajus()}
}
function faire(ceci){
	txt=rechercher()+"|";subtxt=txt.split("|")
	l0=subtxt[0].length
	l1=subtxt[1].length
	c1=subtxt[0].substring(0,(l0-2))
	c2=subtxt[0].substring(0,(l0-1))
	c3=subtxt[1].substring(0,1)
	c4=subtxt[1].substring(0,2)
	c5=subtxt[0].substring((l0-2),l0)
	c6=subtxt[0].substring((l0-1),l0)
	c7=subtxt[1].substring(1,l1)
	c8=subtxt[1].substring(2,l1)
	if(dia[accent]!=null){if(ceci==" "){ceci=fromhexby4tocar(accent)}distinguer(false)}
	switch (ceci){
	case("av") :if(encodeURIComponent(c4)!="%0D%0A"){txt=subtxt[0]+c3+"|"+c7}else{txt=subtxt[0]+c4+"|"+c8}break
	case("ar") :if(encodeURIComponent(c5)!="%0D%0A"){txt=c2+"|"+c6+subtxt[1]}else{txt=c1+"|"+c5+subtxt[1]}break
	case("bck"):if(encodeURIComponent(c5)!="%0D%0A"){txt=c2+"|"+subtxt[1]}else{txt=c1+"|"+subtxt[1]}break
	case("del"):if(encodeURIComponent(c4)!="%0D%0A"){txt=subtxt[0]+"|"+c7}else{txt=subtxt[0]+"|"+c8}break
	default:txt=subtxt[0]+ceci+"|"+subtxt[1];break
	}
	afficher(txt)
}
function RAZ(){txt="";if(dia[accent]!=null){distinguer(false)}afficher(txt)}
function haut(){caps=1;MinusMajus()}
function bloq(){lock=(lock==1)?0:1;MinusMajus()}

/*fonctions de traitement du unikey*/
function tracer(nom,gauche,haut,ceci,classe){ceci="<span class="+classe+">"+ceci+"</span>";document.write('<div id="'+nom+'" >'+ceci+'</div>');if (ns6){document.getElementById(nom).style.left=gauche+"px";document.getElementById(nom).style.top=haut+"px";}else if (ie){document.all(nom).style.left=gauche;document.all(nom).style.top=haut}}
function retracer(nom,ceci,classe){ceci="<span class="+classe+">"+ceci+"</span>";if (ns6){document.getElementById(nom).innerHTML=ceci}else if (ie){doc=document.all(nom);doc.innerHTML=ceci}}
function keyscroll(n){
	keydeb+=n
	if (keydeb<0){
		keydeb=0
	}
	if (keydeb>key.length-4){
		keydeb=key.length-4
	}
	for (i=keydeb;i<keydeb+4;i++){
		retracer("key"+(i-keydeb),key[i],"unikey")
	}
	if (keydeb==0){
		retracer("act0","&nbsp;","action")
	}else {
		retracer("act0",act[0],"action")
	}
	if (keydeb==key.length-4){
		retracer("act1","&nbsp;","action")
	}else {
		retracer("act1",act[1],"action")
	}
}
function charger(i){
	langue=key[i+keydeb];setCk(langue);accent="0000"
	CarMaj=Maj[langue].split("|");CarMin=Min[langue].split("|")
	for (i=0;i<nbTouches;i++){
		CarMaj[i]=((CarMaj[i]!="0000")?(fromhexby4tocar(CarMaj[i])):"")
		CarMin[i]=((CarMin[i]!="0000")?(fromhexby4tocar(CarMin[i])):"")
		if (CarMaj[i]==CarMin[i].toUpperCase()){
			cecar=((lock==0)&&(caps==0)?CarMin[i]:CarMaj[i])
			retracer("car"+i,cecar,((dia[hexa(cecar)]!=null)?"simpledia":"simple"))
			retracer("minus"+i,"&nbsp;")
			retracer("majus"+i,"&nbsp;")
		}
		else{
			retracer("car"+i,"&nbsp;")
			cecar=CarMin[i]
			retracer("minus"+i,cecar,((dia[hexa(cecar)]!=null)?"doubledia":"double"))
			cecar=CarMaj[i]
			retracer("majus"+i,cecar,((dia[hexa(cecar)]!=null)?"doubledia":"double"))
		}
	}
}
function distinguer(oui){
	for (i=0;i<nbTouches;i++){
		if (CarMaj[i]==CarMin[i].toUpperCase()){
			cecar=((lock==0)&&(caps==0)?CarMin[i]:CarMaj[i])
			if(test(cecar)){retracer("car"+i,oui?(cardia(cecar)):cecar,oui?"simpledia":"simple")}
		}
		else{
			cecar=CarMin[i]
			if(test(cecar)){retracer("minus"+i,oui?(cardia(cecar)):cecar,oui?"doubledia":"double")}
			cecar=CarMaj[i]
			if(test(cecar)){retracer("majus"+i,oui?(cardia(cecar)):cecar,oui?"doubledia":"double")}
		}
	}
	if (!oui){accent="0000"}
}
function MinusMajus(){
	for (i=0;i<nbTouches;i++){
		if (CarMaj[i]==CarMin[i].toUpperCase()){
			cecar=((lock==0)&&(caps==0)?CarMin[i]:CarMaj[i])
			retracer("car"+i,(test(cecar)?cardia(cecar):cecar),((dia[hexa(cecar)]!=null||test(cecar))?"simpledia":"simple"))
		}
	}
}
function test(cecar){return(dia[accent]!=null&&dia[accent][hexa(cecar)]!=null)}
function cardia(cecar){return(fromhexby4tocar(dia[accent][hexa(cecar)]))}
function fromhex(inval){out=0;for (a=inval.length-1;a>=0;a--){out+=Math.pow(16,inval.length-a-1)*hexchars.indexOf(inval.charAt(a))}return out}
function fromhexby4tocar(ceci){out4=new String();for (l=0;l<ceci.length;l+=4){out4+=String.fromCharCode(fromhex(ceci.substring(l,l+4)))}return out4}
function tohex(inval){return hexchars.charAt(inval/16)+hexchars.charAt(inval%16)}
function tohex2(inval){return tohex(inval/256)+tohex(inval%256)}
function hexa(ceci){out="";for (k=0;k<ceci.length;k++){out+=(tohex2(ceci.charCodeAt(k)))}return out}
function getCk(){
	fromN=document.cookie.indexOf("langue=")+0;
	if((fromN)!=-1){
		fromN+=7;
		toN=document.cookie.indexOf(";",fromN)+0;
		if(toN==-1){
			toN=document.cookie.length
		}
		return decodeURIComponent(document.cookie.substring(fromN,toN))
	}
	return ""
}
function setCk(inval){
	if(inval!=null){
		exp=new Date();
		time=365*60*60*24*1000;
		exp.setTime(exp.getTime()+time);
		document.cookie="langue"+"="+encodeURIComponent(inval)+"; "+"expires="+exp.toGMTString()
	}
}

// Arabic Keystroke Translator
function arkey(e) {
	if ((document.layers)|(navigator.userAgent.indexOf("MSIE 4")>-1)|(langue!="Arabic")) return true;

	if (!e) 
		e = window.event;
	if (e.keyCode) keyCode = e.keyCode;
	else if (e.which) keyCode = e.which;
	var character = String.fromCharCode(keyCode);

		entry = true;
		cont=e.srcElement || e.currentTarget || e.target;
		if (keyCode>64 && keyCode<91) {
			entry=false;
			source='ش لاؤ ي ث ب ل ا ه ت ن م ة ى خ ح ض ق س ف ع ر ص ء غ ئ ';
			shsource='ِ لآ} ] ُ [ لأأ ÷ ـ ، /   آ × ؛ َ ٌ ٍ لإ  { ً ْ إ ~'; 

			if (e.shiftKey) cont.value += shsource.substr((keyCode-64)*2-2,2);
			else
				cont.value += source.substr((keyCode-64)*2-2,2);
			if (cont.value.substr(cont.value.length-1,1)==' ') cont.value=cont.value.substr(0,cont.value.length-1);
		}
		if (e.shiftKey) {
			if (keyCode==186) {cont.value += ':';entry=false;}
			if (keyCode==188) {cont.value += ',';entry=false;}
			if (keyCode==190) {cont.value += '.';entry=false;}
			if (keyCode==191) {cont.value += '؟';entry=false;}
			if (keyCode==192) {cont.value += 'ّ';entry=false;}
			if (keyCode==219) {cont.value += '<';entry=false;}
			if (keyCode==221) {cont.value += '>';entry=false;}
		} else {
			if (keyCode==186||keyCode==59) {cont.value += 'ك';entry=false;}
			if (keyCode==188) {cont.value += 'و';entry=false;}
			if (keyCode==190) {cont.value += 'ز';entry=false;}
			if (keyCode==191) {cont.value += 'ظ';entry=false;}
			if (keyCode==192) {cont.value += 'ذ';entry=false;}
			if (keyCode==219) {cont.value += 'ج';entry=false;}
			if (keyCode==221) {cont.value += 'د';entry=false;}
			if (keyCode==222) {cont.value += 'ط';entry=false;}
		}
	return entry;
}
function hold_it(e){
	if ((document.layers)|(navigator.userAgent.indexOf("MSIE 4")>-1)|(langue!="Arabic")) return true;

	var keyCode;
	if (!e) 
		e = window.event;
	if (e.keyCode) keyCode = e.keyCode;
	else if (e.which) keyCode = e.which;
	var character = String.fromCharCode(keyCode);
	switch(keyCode){
		case 186:
		case 188:
		case 190:
		case 191:
		case 192:
		case 219:
		case 221:
		case 222:
		case 116:
		case 59:
		case 47:
		case 46:
		case 44:
		case 39:
			return false;
		case 92:
			return true;
	}
		if (keyCode<63) return true;
		return false;
	}

var obj = document.getElementById( 'uni_area' );
if ( obj && langue=="Arabic"){
	if (navigator.appName=="Netscape")
		obj.onkeypress = hold_it;

	obj.onkeydown = arkey;
}
// Arabic Keystroke Translator End