usb: dev-mtp: close fd in usb_mtp_object_readdir()
[qemu/kevin.git] / scripts / tap-merge.pl
blob59e3fa5007c09606fd63acd46fd13251c892cf91
1 #! /usr/bin/env perl
2 # Copyright (C) 2018 Red Hat, Inc.
4 # Author: Paolo Bonzini <pbonzini@redhat.com>
6 # This program is free software; you can redistribute it and/or modify
7 # it under the terms of the GNU General Public License as published by
8 # the Free Software Foundation; either version 2, or (at your option)
9 # any later version.
11 # This program is distributed in the hope that it will be useful,
12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 # GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License
17 # along with this program. If not, see <https://www.gnu.org/licenses/>.
19 # ---------------------------------- #
20 # Imports, static data, and setup. #
21 # ---------------------------------- #
23 use warnings FATAL => 'all';
24 use strict;
25 use Getopt::Long ();
26 use TAP::Parser;
28 my $ME = "tap-merge.pl";
29 my $VERSION = "2018-11-30";
31 my $HELP = "$ME: merge multiple TAP inputs from stdin.";
33 use constant DIAG_STRING => "#";
35 # ----------------- #
36 # Option parsing. #
37 # ----------------- #
39 Getopt::Long::GetOptions
41 'help' => sub { print $HELP; exit 0; },
42 'version' => sub { print "$ME $VERSION\n"; exit 0; },
45 # -------------- #
46 # Subroutines. #
47 # -------------- #
49 sub main ()
51 my $iterator = TAP::Parser::Iterator::Stream->new(\*STDIN);
52 my $parser = TAP::Parser->new ({iterator => $iterator });
53 my $testno = 0; # Number of test results seen so far.
54 my $bailed_out = 0; # Whether a "Bail out!" directive has been seen.
56 while (defined (my $cur = $parser->next))
58 if ($cur->is_bailout)
60 $bailed_out = 1;
61 print DIAG_STRING . " " . $cur->as_string . "\n";
62 next;
64 elsif ($cur->is_plan)
66 $bailed_out = 0;
67 next;
69 elsif ($cur->is_test)
71 $bailed_out = 0 if $cur->number == 1;
72 $testno++;
73 $cur = TAP::Parser::Result::Test->new({
74 ok => $cur->ok,
75 test_num => $testno,
76 directive => $cur->directive,
77 explanation => $cur->explanation,
78 description => $cur->description
79 });
81 elsif ($cur->is_version)
83 next if $testno > 0;
85 print $cur->as_string . "\n" unless $bailed_out;
87 print "1..$testno\n";
90 # ----------- #
91 # Main code. #
92 # ----------- #
94 main;
96 # Local Variables:
97 # perl-indent-level: 2
98 # perl-continued-statement-offset: 2
99 # perl-continued-brace-offset: 0
100 # perl-brace-offset: 0
101 # perl-brace-imaginary-offset: 0
102 # perl-label-offset: -2
103 # cperl-indent-level: 2
104 # cperl-brace-offset: 0
105 # cperl-continued-brace-offset: 0
106 # cperl-label-offset: -2
107 # cperl-extra-newline-before-brace: t
108 # cperl-merge-trailing-else: nil
109 # cperl-continued-statement-offset: 2
110 # End: