remote_domain_disk_error **ret_errors_val,
u_int *ret_errors_len);
+static virConnectPtr
+remoteGetHypervisorConn(virNetServerClientPtr client);
+static virConnectPtr
+remoteGetInterfaceConn(virNetServerClientPtr client);
+static virConnectPtr
+remoteGetNetworkConn(virNetServerClientPtr client);
+static virConnectPtr
+remoteGetNodeDevConn(virNetServerClientPtr client);
+static virConnectPtr
+remoteGetNWFilterConn(virNetServerClientPtr client);
+static virConnectPtr
+remoteGetSecretConn(virNetServerClientPtr client);
+static virConnectPtr
+remoteGetStorageConn(virNetServerClientPtr client);
+
+
#include "remote_daemon_dispatch_stubs.h"
#include "remote_daemon_dispatch_qemu_stubs.h"
#include "remote_daemon_dispatch_lxc_stubs.h"
}
+static virConnectPtr
+remoteGetHypervisorConn(virNetServerClientPtr client)
+{
+ struct daemonClientPrivate *priv =
+ virNetServerClientGetPrivateData(client);
+
+ if (!priv->conn) {
+ virReportError(VIR_ERR_INTERNAL_ERROR, "%s", _("hypervisor connection not open"));
+ return NULL;
+ }
+
+ return priv->conn;
+}
+
+
+static virConnectPtr
+remoteGetInterfaceConn(virNetServerClientPtr client)
+{
+ struct daemonClientPrivate *priv =
+ virNetServerClientGetPrivateData(client);
+
+ if (!priv->interfaceConn) {
+ virReportError(VIR_ERR_INTERNAL_ERROR, "%s", _("hypervisor connection not open"));
+ return NULL;
+ }
+
+ return priv->interfaceConn;
+}
+
+
+static virConnectPtr
+remoteGetNetworkConn(virNetServerClientPtr client)
+{
+ struct daemonClientPrivate *priv =
+ virNetServerClientGetPrivateData(client);
+
+ if (!priv->networkConn) {
+ virReportError(VIR_ERR_INTERNAL_ERROR, "%s", _("hypervisor connection not open"));
+ return NULL;
+ }
+
+ return priv->networkConn;
+}
+
+
+static virConnectPtr
+remoteGetNodeDevConn(virNetServerClientPtr client)
+{
+ struct daemonClientPrivate *priv =
+ virNetServerClientGetPrivateData(client);
+
+ if (!priv->nodedevConn) {
+ virReportError(VIR_ERR_INTERNAL_ERROR, "%s", _("hypervisor connection not open"));
+ return NULL;
+ }
+
+ return priv->nodedevConn;
+}
+
+
+static virConnectPtr
+remoteGetNWFilterConn(virNetServerClientPtr client)
+{
+ struct daemonClientPrivate *priv =
+ virNetServerClientGetPrivateData(client);
+
+ if (!priv->nwfilterConn) {
+ virReportError(VIR_ERR_INTERNAL_ERROR, "%s", _("hypervisor connection not open"));
+ return NULL;
+ }
+
+ return priv->nwfilterConn;
+}
+
+
+static virConnectPtr
+remoteGetSecretConn(virNetServerClientPtr client)
+{
+ struct daemonClientPrivate *priv =
+ virNetServerClientGetPrivateData(client);
+
+ if (!priv->secretConn) {
+ virReportError(VIR_ERR_INTERNAL_ERROR, "%s", _("hypervisor connection not open"));
+ return NULL;
+ }
+
+ return priv->secretConn;
+}
+
+
+static virConnectPtr
+remoteGetStorageConn(virNetServerClientPtr client)
+{
+ struct daemonClientPrivate *priv =
+ virNetServerClientGetPrivateData(client);
+
+ if (!priv->storageConn) {
+ virReportError(VIR_ERR_INTERNAL_ERROR, "%s", _("hypervisor connection not open"));
+ return NULL;
+ }
+
+ return priv->storageConn;
+}
+
+
void *remoteClientNew(virNetServerClientPtr client,
void *opaque ATTRIBUTE_UNUSED)
{
return $typename;
}
-sub get_conn_arg {
+sub get_conn_type {
+ if ($structprefix eq "admin") {
+ return "virNetDaemonPtr";
+ } else {
+ return "virConnectPtr";
+ }
+}
+
+sub get_conn_var {
+ if ($structprefix eq "admin") {
+ return "dmn";
+ } else {
+ return "conn";
+ }
+}
+
+sub get_conn_method {
my $proc = shift;
my $args = shift;
my $rets = shift;
if ($structprefix eq "admin") {
- return "priv->dmn";
+ return "adminGetConn";
}
my @types;
# This correctly detects most APIs
foreach my $type (@types) {
if ($type =~ /remote_nonnull_interface/) {
- return "priv->interfaceConn";
+ return "remoteGetInterfaceConn";
}
if ($type =~ /remote_nonnull_network/) {
- return "priv->networkConn";
+ return "remoteGetNetworkConn";
}
if ($type =~ /remote_nonnull_node_device/) {
- return "priv->nodedevConn";
+ return "remoteGetNodeDevConn";
}
if ($type =~ /remote_nonnull_nwfilter/) {
- return "priv->nwfilterConn";
+ return "remoteGetNWFilterConn";
}
if ($type =~ /remote_nonnull_secret/) {
- return "priv->secretConn";
+ return "remoteGetSecretConn";
}
if ($type =~ /remote_nonnull_storage/) {
- return "priv->storageConn";
+ return "remoteGetStorageConn";
}
}
# return things which aren't objects. eg list
# of pool names, or number of pools.
if ($proc =~ /Connect.*Interface/ || $proc =~ /InterfaceChange/) {
- return "priv->interfaceConn";
+ return "remoteGetInterfaceConn";
}
if ($proc =~ /Connect.*Network/) {
- return "priv->networkConn";
+ return "remoteGetNetworkConn";
}
if ($proc =~ /Node.*Device/) {
- return "priv->nodedevConn";
+ return "remoteGetNodeDevConn";
}
if ($proc =~ /Connect.*NWFilter/) {
- return "priv->nwfilterConn";
+ return "remoteGetNWFilterConn";
}
if ($proc =~ /Connect.*Secret/) {
- return "priv->secretConn";
+ return "remoteGetSecretConn";
}
if ($proc =~ /Connect.*Storage/) {
- return "priv->storageConn";
+ return "remoteGetStorageConn";
}
- return "priv->conn";
+ return "remoteGetHypervisorConn";
}
# Read the input file (usually remote_protocol.x) and form an
my @free_list = ();
my @free_list_on_error = ("virNetMessageSaveError(rerr);");
- my $conn = get_conn_arg($call->{ProcName}, $call->{args_members}, $call->{ret_members});
+ my $conn_method = get_conn_method($call->{ProcName}, $call->{args_members}, $call->{ret_members});
+ my $conn_var = get_conn_var();
+ my $conn_type = get_conn_type();
# handle arguments to the function
if ($argtype ne "void") {
$has_node_device = 1;
push(@vars_list, "virNodeDevicePtr dev = NULL");
push(@getters_list,
- " if (!(dev = virNodeDeviceLookupByName($conn, args->name)))\n" .
+ " if (!(dev = virNodeDeviceLookupByName($conn_var, args->name)))\n" .
" goto cleanup;\n");
push(@args_list, "dev");
push(@free_list,
push(@vars_list, "vir${type_name}Ptr $2 = NULL");
push(@getters_list,
- " if (!($2 = get_nonnull_$1($conn, args->$2)))\n" .
+ " if (!($2 = get_nonnull_$1($conn_var, args->$2)))\n" .
" goto cleanup;\n");
push(@args_list, "$2");
push(@free_list,
push(@vars_list, "virDomainPtr dom = NULL");
push(@vars_list, "virDomain${type_name}Ptr ${1} = NULL");
push(@getters_list,
- " if (!(dom = get_nonnull_domain($conn, args->${2}.dom)))\n" .
+ " if (!(dom = get_nonnull_domain($conn_var, args->${2}.dom)))\n" .
" goto cleanup;\n" .
"\n" .
" if (!($1 = get_nonnull_domain_${1}(dom, args->$2)))\n" .
" virObjectUnref($1);\n" .
" virObjectUnref(dom);");
} elsif ($args_member =~ m/^(?:(?:admin|remote)_string|remote_uuid) (\S+)<\S+>;/) {
- push(@args_list, $conn) if !@args_list;
+ push(@args_list, $conn_var) if !@args_list;
push(@args_list, "args->$1.$1_val");
push(@args_list, "args->$1.$1_len");
} elsif ($args_member =~ m/^(?:opaque|(?:admin|remote)_nonnull_string) (\S+)<\S+>;(.*)$/) {
- push(@args_list, $conn) if !@args_list;
+ push(@args_list, $conn_var) if !@args_list;
my $cast = "";
my $arg_name = $1;
push(@args_list, "${cast}args->$arg_name.${arg_name}_val");
push(@args_list, "args->$arg_name.${arg_name}_len");
} elsif ($args_member =~ m/^(?:unsigned )?int (\S+)<\S+>;/) {
- push(@args_list, $conn) if !@args_list;
+ push(@args_list, $conn_var) if !@args_list;
push(@args_list, "args->$1.$1_val");
push(@args_list, "args->$1.$1_len");
push(@vars_list, "virTypedParameterPtr $1 = NULL");
push(@vars_list, "int n$1 = 0");
if ($call->{ProcName} eq "NodeSetMemoryParameters") {
- push(@args_list, "$conn");
+ push(@args_list, $conn_var);
}
push(@args_list, "$1");
push(@args_list, "n$1");
# just make all other array types fail
die "unhandled type for argument value: $args_member";
} elsif ($args_member =~ m/^remote_uuid (\S+);/) {
- push(@args_list, $conn) if !@args_list;
+ push(@args_list, $conn_var) if !@args_list;
push(@args_list, "(unsigned char *) args->$1");
} elsif ($args_member =~ m/^(?:admin|remote)_string (\S+);/) {
- push(@args_list, $conn) if !@args_list;
+ push(@args_list, $conn_var) if !@args_list;
push(@vars_list, "char *$1");
push(@optionals_list, "$1");
push(@args_list, "$1");
} elsif ($args_member =~ m/^(?:admin|remote)_nonnull_string (\S+);/) {
- push(@args_list, $conn) if !@args_list;
+ push(@args_list, $conn_var) if !@args_list;
push(@args_list, "args->$1");
} elsif ($args_member =~ m/^(unsigned )?int (\S+);/) {
- push(@args_list, $conn) if !@args_list;
+ push(@args_list, $conn_var) if !@args_list;
push(@args_list, "args->$2");
} elsif ($args_member =~ m/^(unsigned )?hyper (\S+);/) {
- push(@args_list, $conn) if !@args_list;
+ push(@args_list, $conn_var) if !@args_list;
my $arg_name = $2;
push(@vars_list, "virNet${type_name}Ptr $2 = NULL");
push(@getters_list,
- " if (!($2 = get_nonnull_$1($conn, args->$2)))\n" .
+ " if (!($2 = get_nonnull_$1($conn_var, args->$2)))\n" .
" goto cleanup;\n");
push(@args_list, "$2");
push(@free_list,
push(@vars_list, "virNetServerPtr srv = NULL");
push(@vars_list, "virNetServer${type_name}Ptr $2 = NULL");
push(@getters_list,
- " if (!(srv = get_nonnull_server($conn, args->$2.srv)))\n" .
+ " if (!(srv = get_nonnull_server($conn_var, args->$2.srv)))\n" .
" goto cleanup;\n");
push(@getters_list,
" if (!($2 = get_nonnull_$1(srv, args->$2)))\n" .
# select struct type for multi-return-value functions
if ($multi_ret) {
if (defined $call->{ret_offset}) {
- push(@args_list, $conn) if !@args_list;
+ push(@args_list, $conn_var) if !@args_list;
if ($modern_ret_as_list) {
my $struct_name = name_to_TypeName($modern_ret_struct_name);
print " $var;\n";
}
- if ($structprefix eq "admin") {
- print " struct daemonAdmClientPrivate *priv =\n";
- } else {
- print " struct daemonClientPrivate *priv =\n";
- }
- print " virNetServerClientGetPrivateData(client);\n";
-
if ($call->{streamflag} ne "none") {
print " virStreamPtr st = NULL;\n";
print " daemonClientStreamPtr stream = NULL;\n";
print "\n";
- print " if (!$conn) {\n";
- print " virReportError(VIR_ERR_INTERNAL_ERROR, \"%s\", _(\"connection not open\"));\n";
+ print " $conn_type $conn_var = $conn_method(client);\n";
+ print " if (!$conn_var) \n";
print " goto cleanup;\n";
- print " }\n";
print "\n";
if ($single_ret_as_list) {
}
if ($call->{streamflag} ne "none") {
- print " if (!(st = virStreamNew($conn, VIR_STREAM_NONBLOCK)))\n";
+ print " if (!(st = virStreamNew($conn_var, VIR_STREAM_NONBLOCK)))\n";
print " goto cleanup;\n";
print "\n";
print " if (!(stream = daemonCreateClientStream(client, st, remoteProgram, &msg->header, sparse)))\n";
} elsif (!$multi_ret) {
my $proc_name = $call->{ProcName};
- push(@args_list, $conn) if !@args_list;
+ push(@args_list, $conn_var) if !@args_list;
if ($structprefix eq "qemu" &&
$call->{ProcName} =~ /^(Connect)?Domain/) {