Add, for genimode xml:

	if ($sharing_mode{$name}) {
	    print "  <exclusive>false</exclusive>\n";
	}
	else {
	    print "  <exclusive>true</exclusive>\n";
	}

tbsetup/ptopgen.in

@@ -173,7 +173,7 @@ if (defined($options{"e"})) {
 	if (!defined($pid));
 }
 if (defined($options{"x"})) {
-    $genimode = 1
+    $genimode = $useshared = 1
 	if (defined($options{"g"}) && $PGENISUPPORT);
     $do_xml = 1;
 }
@@ -1373,6 +1373,12 @@ sub print_node
 	} else {
 	    print "  <available>false</available>\n";
 	}
+	if ($sharing_mode{$name}) {
+	    print "  <exclusive>false</exclusive>\n";
+	}
+	else {
+	    print "  <exclusive>true</exclusive>\n";
+	}
 	print_node_interfaces($name, @$interfaces);
 	print "</node>\n";
     } else {