[frontierkernel-commits] odbs/frontierRoot/suites/fUnit/testSuperStress/data/rpcHandlers helloWorld,NONE,1.1.2.1,fUnit_Suite-branch xmlReceiver,NONE,1.1.2.1,fUnit_Suite-branch

[Andre R. <and...@us...>]

Update of /cvsroot/frontierkernel/odbs/frontierRoot/suites/fUnit/testSuperStress/data/rpcHandlers
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10981/rpcHandlers

Added Files:
      Tag: fUnit_Suite-branch
	helloWorld xmlReceiver 
Log Message:
Added infrastructure required for xml-rpc tests in testXML.

--- NEW FILE: helloWorld ---
FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.data.rpcHandlers.helloWorld

on helloWorld (name) {
	return ("Hello " + name + ".")}
--- NEW FILE: xmlReceiver ---
FrontierVcsFile:1:scpt:suites.fUnit.testSuperStress.data.rpcHandlers.xmlReceiver

on xmlReceiver (addressString, objectType, encodedObject) {
	local (adr = @temp.["fUnit" + addressString]);
	local (bytes = binary (base64.decode (encodedObject)));
	setBinaryType (@bytes, objectType);
	unpack (@bytes, adr);
	if objectType == scripttype {
		script.compile (adr)};
	return (true)}