${txt}
\n"; } else { print "No documentation available.
\n"; } } if ($rs[1]->faultCode()) { display_error($rs[1]); } else { print "\n";
$val = $rs[1]->value();
if ($val->kindOf() == "array") {
for ($j = 0; $j < $val->arraysize(); $j++) {
$x = $val->arraymem($j);
$ret = $x->arraymem(0);
print "" . $ret->scalarval() . " "
. $mname->scalarval() . "(";
if ($x->arraysize() > 1) {
for ($k = 1; $k < $x->arraysize(); $k++) {
$y = $x->arraymem($k);
print $y->scalarval();
if ($k < $x->arraysize() - 1) {
print ", ";
}
}
}
print ")
\n";
}
} else {
print "Signature unknown\n";
}
print "