Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
Parser	[ DIR ]	drwxr-xr-x
Client.pm	31.26 KB	-rw-r--r--
Parser.pm	9.82 KB	-rw-r--r--
ParserFactory.pm	8.6 KB	-rw-r--r--
Procedure.pm	41.71 KB	-rw-r--r--
Server.pm	94.56 KB	-rw-r--r--
identity.xpl	858 B	-rw-r--r--
introspection.xpl	3.19 KB	-rw-r--r--
listMethods.xpl	1.66 KB	-rw-r--r--
methodHelp.xpl	1.85 KB	-rw-r--r--
methodSignature.xpl	1.99 KB	-rw-r--r--
multicall.xpl	3.25 KB	-rw-r--r--
status.xpl	4.46 KB	-rw-r--r--

Code Editor : methodSignature.xpl

<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE methoddef SYSTEM "rpc-method.dtd">
<!--
    Generated automatically by make_method 1.15

Any changes made here will be lost.
-->
<methoddef>
<name>system.methodSignature</name>
<version>1.2</version>
<signature>array string</signature>
<signature>array array</signature>
<help>
Return the signatures that the specified method(s) may be called with. Always
returns an ARRAY, even if there is only one signature. Either a single method
must be named in the STRING parameter, or a list of one or more may be
specified in the ARRAY parameter. If an ARRAY is passed, then return value will
be an ARRAY containing other ARRAY values, one per requested name.
</help>
<code language="perl">
<![CDATA[
#!/usr/bin/perl
###############################################################################
#
#   Sub Name:       methodSignature
#
#   Description:    Retrieve the list of method signatures for the specified
#                   methods.
#
#   Arguments:      NAME      IN/OUT  TYPE      DESCRIPTION
#                   $srv      in      ref       Server object instance
#                   $arg      in      ref/sc    Listref or scalar specification
#
#   Globals:        None.
#
#   Environment:    None.
#
#   Returns:        Success:    listref
#                   Failure:    fault object
#
###############################################################################
sub methodSignature
{
    use strict;

my $srv = shift;
    my $arg = shift;

my $name = $srv->{method_name};
    my @list = (ref $arg) ? @$arg : ($arg);
    my (@results, $list, $method);

for (@list)
    {
        if (ref($method = $srv->get_method($_)) and (! $method->hidden))
        {
            push(@results,
                 [ map { [ split(/ /) ] } @{$method->signature} ]);
        }
        else
        {
            return RPC::XML::fault->new(302, "$name: Method $_ unknown");
        }
    }

return (ref $arg) ? \@results : $results[0];
}

__END__
]]></code>
</methoddef>

${this.title}

Code Editor : methodSignature.xpl