private function setUpXmlRpcTypes($xmlrpc_das)
{
$typeList = <<<END
<introspection>
<typeList>
<typeDescription name='SimpleType' basetype='struct' desc='Simple type'>
<value type='int' name='intValue'></value>
<value type='double' name='doubleValue'></value>
<value type='string' name='strValue'></value>
</typeDescription>
<typeDescription name='ComplexType' basetype='struct' desc='Complex type'>
<value type='SimpleType []' name='objArrValue'></value>
<value type='int []' name='intArrValue'></value>
<value type='int' name='intValue'></value>
<value type='double' name='doubleValue'></value>
<value type='string' name='strValue'></value>
<value type='SimpleType' name='objValue'></value>
</typeDescription>
</typeList>
</introspection>
END;
$call = <<<END
<?xml version="1.0" encoding="iso-8859-1"?>
<methodCall>
<methodName>system.describeMethods</methodName>
<params/>
</methodCall>
END;
$xmlrpc_server = xmlrpc_server_create();
$descArray = xmlrpc_parse_method_descriptions($typeList);
xmlrpc_server_add_introspection_data($xmlrpc_server, $descArray);
$response = xmlrpc_server_call_method($xmlrpc_server, $call, null);
xmlrpc_server_destroy($xmlrpc_server);
$methodDesc = xmlrpc_decode_request($response, $method);
$this->xmlrpc_das->addTypesXmlRpc($methodDesc["typeList"]);
}
/**
* Generate method and type information to add introspection data.
* The information required is generated from annotations.
* All methods are registered with the server, and introspection data
* is added to the server.
*
* @param resource $xmlrpc_server XML RPC server
* @param array $service_description Description
* @param array &$method_aliases Aliases
* @param object $xmlrpc_das Unknown
*
* @return string Method description
*/
public function addIntrospectionData($xmlrpc_server, $service_description, &$method_aliases, $xmlrpc_das = null)
{
if ($xmlrpc_das == null) {
$xsds = SCA_Helper::getAllXsds($service_description->class_name);
$xmlrpc_das = new SCA_Bindings_Xmlrpc_DAS();
foreach ($xsds as $index => $xsds) {
list($namespace, $xsdfile) = $xsds;
if (SCA_Helper::isARelativePath($xsdfile)) {
$xsd = SCA_Helper::constructAbsolutePath($xsdfile, $service_description->class_name);
$xmlrpc_das->addTypesXsdFile($xsd);
}
}
}
$type_list = array();
$methodDesc = <<<END
<?xml version='1.0'?>
<introspection version='1.0'>
<methodList>
END;
foreach ($service_description->operations as $methodName => $methodInfo) {
$methodParams = "";
$methodReturn = "";
if (array_key_exists("name", $methodInfo) && array_key_exists("name", $methodInfo["name"]) && $methodInfo["name"]["name"] != null && strlen($methodInfo["name"]["name"]) > 0) {
$xmlrpcMethodName = $methodInfo["name"]["name"];
$method_aliases[$xmlrpcMethodName] = $methodName;
} else {
$xmlrpcMethodName = $methodName;
}
xmlrpc_server_register_method($xmlrpc_server, $xmlrpcMethodName, $methodName);
if (array_key_exists("parameters", $methodInfo) && $methodInfo["parameters"] != null) {
foreach ($methodInfo["parameters"] as $param) {
$paramName = $param["name"];
if (array_key_exists('objectType', $param)) {
$paramType = $param["objectType"];
$this->generateType($param["namespace"], $param["objectType"], $type_list, $xmlrpc_das);
} else {
$paramType = $this->sdoTypeToXmlRpcType($param["type"]);
}
$methodParams = $methodParams . <<<END
<value type='{$paramType}' desc='{$paramName}'>
</value>
END;
}
}
if (array_key_exists("return", $methodInfo) && $methodInfo["return"] != null) {
foreach ($methodInfo["return"] as $ret) {
if (array_key_exists('objectType', $ret)) {
$retType = $ret["objectType"];
$this->generateType($ret["namespace"], $ret["objectType"], $type_list, $xmlrpc_das);
} else {
$retType = $this->sdoTypeToXmlRpcType($ret["type"]);
}
$methodReturn = $methodReturn . <<<END
<value type='{$retType}' desc='return'>
</value>
END;
}
}
$methodDesc = $methodDesc . <<<END
<methodDescription name='{$xmlrpcMethodName}'>
<author></author>
<purpose></purpose>
<version></version>
<signatures>
<signature>
<params>
{$methodParams}
</params>
<returns>
{$methodReturn}
</returns>
</signature>
</signatures>
</methodDescription>
END;
}
$methodDesc = $methodDesc . "</methodList>\n";
if (count($type_list) > 0) {
$methodDesc = $methodDesc . "<typeList>\n";
foreach ($type_list as $type) {
$methodDesc = $methodDesc . <<<END
<typeDescription name='{$type->name}' basetype='struct' desc='{$type->name}'>
END;
foreach ($type->typedef->properties as $prop) {
$methodDesc = $methodDesc . <<<END
<value type='{$prop->type}' name='{$prop->name}'></value>
END;
}
$methodDesc = $methodDesc . <<<END
</typeDescription>
END;
}
$methodDesc = $methodDesc . "</typeList>\n";
}
$methodDesc = $methodDesc . "</introspection>\n";
$descArray = xmlrpc_parse_method_descriptions($methodDesc);
xmlrpc_server_add_introspection_data($xmlrpc_server, $descArray);
}
/**
* Register an XmlRpcRequestHandler for this server instance
*
* @param XmlRpcRequestHandler $handler
*/
public function registerHandler(XmlRpcRequestHandler $handler)
{
$this->handler = $handler;
foreach (get_class_methods($handler) as $method) {
if (!strncmp($method, "xmlrpc", 6)) {
$this->registerMethod($this->method($method, $handler->getNamespace()), array($handler, $method), array($this, "dispatch"));
}
}
$handler->getIntrospectionData($spec);
if (is_array($spec)) {
xmlrpc_server_add_introspection_data(self::$xmlrpc, $spec);
}
}