//// Sajax Io Backend// (C) Copyright 2005 ModernMethod, Inc.// Released under BSD license//String interpolate := method(	work := self clone	last_idx := 0	while (1,		idx := work find("<?io", last_idx)		if (idx == Nil,			// no more interps.. 			break)		idx := idx + 3		end_idx := work find("?>", idx + 1)		if (end_idx == Nil,			// invalid interp expression.. we're done. 			break)		 		// in the case of an empty interpolated expression,  		// lets move on		if (end_idx - idx == 1,			continue)						// otherwise proceed with replacement. 		slotName := work substring(idx+1, end_idx)		find_str := "<?io" .. slotName .. "?>"		// write("doString(" .. slotName .. ")")		replace_str := sender doString(slotName)		work := work replace(find_str, replace_str)		last_idx = end_idx + 1	)	return work)Sajax := Object clone do (	debug_mode := 0	export_list := List clone	js_has_been_shown := Nil		init := method(		return self	)		handle_client_request := method(			if (my_getenv("QUERY_STRING") == Nil,			return		)				form := CGI clone parse		if (form hasKey("rs") == Nil,			return		)		write("Content-type: text/html\n");		write("Expires: Mon, 26 Jul 1997 05:00:00 GMT\n");   		write("Cache-Control: no-cache, must-revalidate\n");		write("Pragma: no-cache\n\n");				func_name := form at("rs")			if (export_list contains(func_name) == Nil) then (			write("-:$func_name not callable\n")		) else (			write("+:")			args := form at("rsargs[]")			result := sender performWithArgList(func_name, args)			write(result)		)		exit;	}		show_common_js := method(				if (debug_mode == 1,			debugModeTrueFalse := "true",			debugModeTrueFalse := "false")				html := """		// remote scripting library		// (c) copyright 2005 modernmethod, inc		var rs_debug_mode = <?io debugModeTrueFalse ?>;				function rs_debug(text) {			if (rs_debug_mode)				alert("RSD: " + text)		} 		function rs_init_object() { 			rs_debug("rs_init_object() called..") 			 			var A;			try {				A=new ActiveXObject("Msxml2.XMLHTTP");			} catch (e) {				try {					A=new ActiveXObject("Microsoft.XMLHTTP");				} catch (oc) {					A=null;				}			}			if(!A && typeof XMLHttpRequest != "undefined")				A = new XMLHttpRequest();			if (!A)				rs_debug("Could not create connection object.");			return A;		}				"""		write(html interpolate)	}		esc := method(val,		return val replace("\"", "\\\\\"");	)		my_getenv := method(val,		my_get := Nil		if (?System) then (			my_get := System getSlot("getenv")		) else (			my_get := Object getSlot("getenv")		)		return my_get(val)	)		get_my_uri := method(		uri := "http://www.example.com/"		if (my_getenv("REQUEST_URI") != Nil) then (			uri := my_getenv("REQUEST_URI")		) else (			if (my_getenv("SCRIPT_NAME") != Nil) then (				uri := my_getenv("SCRIPT_NAME")				if (my_getenv("QUERY_STRING") != Nil) then (					uri := uri .. "?" .. my_getenv("QUERY_STRING")				)			)		)		return uri	)	show_one := method(func_name,		uri := get_my_uri		func_name_encoded := CGI encodeUrlParam(func_name)		if (uri contains("?") == Nil) then (        	uri = uri .. "?rs=" .. func_name_encoded        ) else (			uri = uri .. "&rs=" .. func_name_encoded		)					html := """		// wrapper for <?io func_name ?>				function x_<?io func_name ?>() {			// count args; build URL			var i, x, n;			var url = "<?io esc(uri) ?>";			var a = x_<?io func_name ?>.arguments;			for (i = 0; i < a.length-1; i++) 				url = url + "&rsargs[]=" + escape(a[i]);			url = url + "&rsrnd=" + new Date().getTime();			x = rs_init_object();			x.open("GET", url, true);			x.onreadystatechange = function() {				if (x.readyState != 4) 					return;				rs_debug("received " + x.responseText);								var status;				var data;				status = x.responseText.charAt(0);				data = x.responseText.substring(2);				if (status == "-") 					alert("Error: " + callback_n);				else  					a[a.length-1](data);			}			x.send(null);			rs_debug("x_<?io func_name ?> url = " + url);			rs_debug("x_<?io func_name ?> waiting..");			delete x;		}		"""		write(html interpolate)	)	export := method(func,		export_list add(func)	}		show_javascript := method(		if (js_has_been_shown == Nil,			show_common_js		)		export_list foreach(index, func_name,			show_one(func_name)		)	)	)