+sub check_for_kernels
+{
+ local $_;
+ my $root_dev = shift;
+
+ # XXX
+}
+
+#----------------------------------------------------------------------
+# Output.
+
+if ($output eq "fish" || $output eq "ro-fish") {
+ my @osdevs = keys %oses;
+ # This only works if there is a single OS.
+ die "--fish output is only possible with a single OS\n" if @osdevs != 1;
+
+ my $root_dev = $osdevs[0];
+
+ print "guestfish";
+ if ($output eq "ro-fish") {
+ print " --ro";
+ }
+
+ print " -a $_" foreach @images;
+
+ my $mounts = $oses{$root_dev}->{mounts};
+ # Have to mount / first. Luckily '/' is early in the ASCII
+ # character set, so this should be OK.
+ foreach (sort keys %$mounts) {
+ print " -m $mounts->{$_}:$_" if $_ ne "swap";
+ }
+ print "\n"
+}