//cutechatraneobjectbuilder


//XMLHttpRequest



// copyright CuteChat 2005
// last modify:2005-01-20

//for XMLHttpRequest (Gecko/Java)

var cutechatraneobjectbuilder=function(url,typename,methods)
{
	var undefinedValue;

	var Code62Chars='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789';
	var Encode62Codes=new Array(65536);
	function Encode62(ch)
	{
		return Encode62Code(ch.charCodeAt(0))
	}
	function Encode62Code(code)
	{
		var cacheV=Encode62Codes[code];
		if(cacheV)return cacheV;
		var l=code%62;
		var x=code-code%3844;
		var m=(code-x-l)/62;
		var h=x/3844;
		cacheV=Code62Chars.charAt(h)+Code62Chars.charAt(m)+Code62Chars.charAt(l);
		Encode62Codes[code]=cacheV;
		return cacheV;
	}
	function Decode62(str)
	{
		var h=Code62Chars.indexOf(str.charAt(0));
		var m=Code62Chars.indexOf(str.charAt(1));
		var l=Code62Chars.indexOf(str.charAt(2));
		return String.fromCharCode(h*3844+m*62+l);
	}
	function SharpEncode(str)
	{
		str=str.replace(/\#/g,'#A');
		str=str.replace(/\$/g,'#B');
		str=str.replace(/\ /g,'#C');
		str=str.replace(/\t/g,'#D');
		str=str.replace(/\r/g,'#E');
		str=str.replace(/\n/g,'#F');


		var ct='';
		var ctl=0;

		var re=/[\u007F-\uFFFF]/;
		do
		{
			var m=re.exec(str);
			if(m==null)break;
			var c=m.input.charAt(m.index)
			var e62=Encode62(c);
			str=str.replace(new RegExp(c,'g'),'#'+ctl.toString(16)+'$');
			ct+=e62;
			ctl++;
		}
		while(true);
		return ct+'#'+str;
	}

	function CodeEncode(str)
	{
		var res='';
		for(var i=0;i<str.length;i++)
		{
			var c=str.charCodeAt(i).toString(16);
			while(c.length<4)c='0'+c;
			res+='\\u'+c;
		}
		return res;
	}
	function MakeToString(obj,str)
	{
		if(str==null||str=='null')return;
		obj.toString=new Function('','return \''+CodeEncode(str+'')+'\';');
	}
	
	//only support * or tagname
	function SelectNodes(element,exp)
	{
		var arr=[];
		for(var i=0;i<element.childNodes.length;i++)
		{
			var node=element.childNodes.item(i);

			if(node.nodeType!=1)
				continue;
			
			if(exp=="*"||exp==node.tagName)
			{
				arr[arr.length]=node;
			}
		}
		return arr;
	}
	
	function SerializeToElement(e,obj)
	{
		var parsedObjs=[];
		return Serialize(obj,e);
		function Serialize(o,e)
		{
			switch(typeof(o))
			{
			case 'boolean':
			case 'number':
			case 'string':
				e.setAttribute('t',typeof(o));
				e.setAttribute('v',o);
				return;
			case 'object':
				if(o==null)
				{
					e.setAttribute('t','null');
					return;
				}
				switch(o.constructor)
				{
				case Number:
					e.setAttribute('t','number');
					e.setAttribute('v',o);
					return;
				case Boolean:
					e.setAttribute('t','boolean');
					e.setAttribute('v',o);
					return;
				case String:
					e.setAttribute('t','string');
					e.setAttribute('v',o);
					return;
				case Object:
					parsedObjs[parsedObjs.length]=o;
					e.setAttribute('t','complex');
					for(var ppt in o)
					{
						var ov=o[ppt];
						if(typeof(ov)=='function')
							continue;
						if(!o.hasOwnProperty(ppt))
							continue;
						var enew=e.ownerDocument.createElement('i');
						enew.setAttribute('p',ppt);
						e.appendChild(enew);
						Serialize(ov,enew);
					}
					return;
				case Array:
					parsedObjs[parsedObjs.length]=o;
					e.setAttribute('t','array');
					for(var i=0;i<o.length;i++)
					{
						var item=o[i];
						var enew=e.ownerDocument.createElement('i');
						e.appendChild(enew);
						Serialize(item,enew);
					}
					return;
				case Date:
					e.setAttribute('t','datetime');
					e.setAttribute('v',o.getTime());
					return;
				default:
					e.setAttribute('t','undefined');
					return;
				}
			default:
				e.setAttribute('t','undefined');
				return;
			}
		}
	}
	function DeserializeElement(e)
	{
		var value=e.getAttribute('v');
		switch(e.getAttribute('t'))
		{
		case 'string':
			return value;
		case 'boolean':
			return value=='True'||value=='true'||value=='1'||value=='-1';
		case 'number':
			return parseFloat(value);
		case 'datetime':
			var date=new Date(parseInt(value));
			date.ticks=e.getAttribute('ticks');
			return date;
		case 'array':
			var arr=new Array();
			var nodes=SelectNodes(e,"*");
			for(var i=0;i<nodes.length;i++)
			{
				arr[i]=DeserializeElement(nodes[i]);
			}
			return arr;
		case 'complex':
			var obj=new Object();
			var str=e.getAttribute('tostring');
			if(str!=null)MakeToString(obj,str);
			var nodes=SelectNodes(e,"*");
			for(var i=0;i<nodes.length;i++)
			{
				obj[nodes[i].getAttribute('p')]=DeserializeElement(nodes[i]);
			}
			return obj;
		case 'null':
			return null;
		case 'undefined':
			return undefinedValue;
		default:
			throw(new Error('unknown type:'+e.getAttribute('t')));
		}
	}
	
	//
	function CreateOuterElement()
	{
		return document.createElement("OuterElement");
	}
	

	var RaneObject=new Object();
	
	RaneObject.Vars=new Object();
	
	RaneObject.SetClientVar=function raneobject_SetClientVar(name,value)
	{
		if(typeof(value)=='undefined')value=null;
		if(value!==null)value=value+'';
		RaneObject.Vars[name]=value;
	}
	RaneObject.GetClientVar=function raneobject_GetClientVar(name)
	{
		return RaneObject.Vars[name];
	}
	RaneObject.GetServerVar=function raneobject_GetServerVar(name)
	{
		return RaneObject.GetServerVar[name];
	}
	
	for(var i=0;i<methods.length;i++)
	{
		RaneObject[methods[i]]=CreateMethod(methods[i]);
	}
	
	return RaneObject;
	
	function CreateMethod(methodname)
	{
		
		function Method()
		{
			return Method.CreateCall().Invoke(Method.arguments);
		}
		
		Method.Vars=new Object();
		
		Method.SetClientVar=function Method_SetClientVar(name,value)
		{
			if(typeof(value)=='undefined')value=null;
			if(value!==null)value=value+'';
			Method.Vars[name]=value;
		}
		Method.GetClientVar=function Method_GetClientVar(name)
		{
			return Method.Vars[name];
		}
		Method.GetServerVar=function Method_GetServerVar(name)
		{
			return Method.GetServerVar[name];
		}
		Method.GetName=function Method_GetName()
		{
			return methodname;
		}
		Method.GetObject=function Method_GetObject()
		{
			return RaneObject;
		}
		
		Method.CreateCall=function Method_CreateCall(func,errhandler,finallyhandler)
		{
			var calling=false;
			var xhrequest=null;
			
			if(func&&typeof(func)!='function')throw(new Error('arguments of CreateCall must be function'));
			
			function Call()
			{
				return Call.Invoke(Call.arguments);
			}
			
			Call.Vars=new Object();
			
			Call.Execute=Call;
			Call.SetClientVar=function Call_SetClientVar(name,value)
			{
				if(typeof(value)=='undefined')value=null;
				if(value!==null)value=value+'';
				Call.Vars[name]=value;
			}
			Call.GetClientVar=function Call_GetClientVar(name)
			{
				return Call.Vars[name];
			}
			Call.GetServerVar=function Call_GetServerVar(name)
			{
				return Call.GetServerVar[name];
			}
			Call.GetMethod=function Call_GetMethod()
			{
				return Method;
			}
			Call.Invoke=function Call_Invoke(args)
			{
				Call.Arguments=args;
				if(func)
					return InvokeAsync(args);
				return InvokeSync(args);
			}
			Call.Abort=function Call_Abort()
			{
				if(!calling)
					throw(new Error('Not Calling'));
					
				calling=false;
				
				try
				{
					xhrequest.onreadystatechange=new Function();
					xhrequest.abort();
				}
				finally
				{
					xhrequest=null;
					if(finallyhandler)
						finallyhandler(Call);
				}
			}
			
			
			function InvokeSync(args)
			{
				ParseResponse(SendXMLHTTP(args,false));
				return Call.Result;
			}
			function InvokeAsync(args)
			{
				if(calling)
					throw(new Error('Method.Call object is using '));
				
				calling=true;
				xhrequest=SendXMLHTTP(args,true);
				
				xhrequest.onreadystatechange=xhrequest_onreadystatechange;
				
				return Call;
			}
			function xhrequest_onreadystatechange()
			{
				if(xhrequest==null)return;
				
				if(xhrequest.readyState!=4)
						return;
				xhrequest.onreadystatechange=new Function("","");

				var xh=xhrequest;
				xhrequest=null;
				calling=false;
				
				if(finallyhandler)
				{
					try
					{
						InvokeFunc();
					}
					finally
					{
						finallyhandler(Call);
					}
				}
				else
				{
					InvokeFunc();
				}
				
				function InvokeFunc()
				{
					if(errhandler)
					{
						try
						{
							ParseResponse(xh,Method,Call);
						}
						catch(x)
						{
							errhandler(x,Call);

							return;
						}
					}
					else
					{
						ParseResponse(xh,Method,Call);
					}
				
					func(Call.Result,Call);
				}
			}
			function SendXMLHTTP(args,async)
			{
				var oe=CreateOuterElement();
				var de=oe.ownerDocument.createElement("rane");
				oe.appendChild(de);
				var xe=oe.ownerDocument.createElement("request");
				de.appendChild(xe);
				
				for(var i=0;i<args.length;i++)
				{
					var e=xe.ownerDocument.createElement('arg');
					SerializeToElement(e,args[i]);
					xe.appendChild(e);
				}
				SetArg(RaneObject);
				SetArg(Method);
				SetArg(Call);
				function SetArg(o)
				{
					o=o.Vars;
					for(var n in o)
					{
						var v=o[n];
						if(typeof(v)!='string')continue;
						var e=xe.ownerDocument.createElement('var');
						e.setAttribute('n',n);
						e.setAttribute('v',v);
						xe.appendChild(e);
					}
				}
//alert(oe.innerHTML);
				var str=SharpEncode(oe.innerHTML);
				var xh=new XMLHttpRequest();
				xh.open('POST',url+'?type=invoke&rand='+new Date().getTime()+'-'+Math.random(),async,null,null);
				xh.setRequestHeader('ranetype',typename);
				xh.setRequestHeader('ranemethod',methodname);
				xh.send(str);
				return xh;
			}
			function ParseResponse(xh)
			{
				var xhstatus=-1;
				try
				{
					xhstatus=xh.status;
				}
				catch(x)
				{
					throw(new Error('unknown network error!'));
				}
				
				if(xhstatus!=200)
					throw(new Error('network error :'+xhstatus+':'+xh.statusText+':\n'+xh.responseText));

				var df=xh.responseXML;

				if(df==null)
					throw(new Error('unknown error :'+xh.responseText));

//alert(xh.responseText);

				var resElement=SelectNodes(df.documentElement,"*")[0];
				
				if(resElement.tagName=='exception')
				{
					var er=new Error('');
					er.type=resElement.getAttribute('t');
					er.message=resElement.getAttribute('message');
					er.stacktrace=resElement.getAttribute('stacktrace');
					er.description='server side '+er.type+':\n'+(resElement.text||resElement.innerText);
					er.method=Method;
					er.call=Call;
					throw(er);
				}

				var argi=0;
				var vari=0;
				
				for(var i=0;i<resElement.childNodes.length;i++)
				{
					var node=resElement.childNodes.item(i);
					if(node.nodeType!=1)
						continue;
					
					switch(node.tagName)
					{
						case "result":
							Call.Result=DeserializeElement(node);
							break;
						case "arg":
							var argx=DeserializeElement(node);
							if(typeof(argx)!='undefined')
							{
								Call.Arguments[argi]=argx;
							}
							argi++;
							break;
						case "var":
							var n=node.getAttribute('n');
							var v=node.getAttribute('v');
							Call.SetClientVar(n,v);
							Method.SetClientVar(n,v);
							RaneObject.SetClientVar(n,v);
							
							Call.GetServerVar[n]=v;
							Method.GetServerVar[n]=v;
							RaneObject.GetServerVar[n]=v;
							vari++;
							break;
					}
				}
			}
			
			return Call;
		}
		
		return Method;
	}
}