191103.1 · e775c8afc175b8e414c8396da470261aa5b23b76
Remove support for Parrot
reading declarations
@@ -2,6 +2,7 @@ History file for ack 3. https://beyondgrep.com/ NEXT ========================================+Removed support for Parrot (--parrot). v3.1.3 Sat Oct 19 19:23:48 CDT 2019
@@ -145,7 +145,6 @@ t/swamp/MasterPage.master t/swamp/Rakefile t/swamp/Sample.ascx t/swamp/Sample.asmx-t/swamp/blib/ignore.pir t/swamp/blib/ignore.pm t/swamp/blib/ignore.pod t/swamp/c-header.h@@ -203,7 +202,6 @@ t/swamp/notes.md t/swamp/options-crlf.pl t/swamp/options.pl t/swamp/options.pl.bak-t/swamp/parrot.pir t/swamp/perl-test.t t/swamp/perl-without-extension t/swamp/perl.cgi
@@ -388,8 +388,9 @@ The following is the list of filetypes supported by ack. You can specify a file type with the --type=TYPE format, or the --TYPE format. For example, both --type=perl and --perl work. -Note that some extensions may appear in multiple types. For example,-.pod files are both Perl and Parrot.+Note that some extensions may appear in multiple types. For example, a+file called Rakefile is both Ruby (--type ruby) and Rakefile (--type+rakefile). END_OF_HELP
@@ -339,10 +339,6 @@ sub _options_block { # https://ocaml.org/ --type-add=ocaml:ext:ml,mli,mll,mly -# Parrot-# http://www.parrot.org/---type-add=parrot:ext:pir,pasm,pmc,ops,pod,pg,tg- # Perl # http://perl.org/ --type-add=perl:ext:pl,pm,pod,t,psgi
t/ack-f.t
@@ -46,7 +46,6 @@ DEFAULT_DIR_EXCLUSIONS: { t/swamp/notes.md t/swamp/options-crlf.pl t/swamp/options.pl- t/swamp/parrot.pir t/swamp/perl-test.t t/swamp/perl-without-extension t/swamp/perl.cgi
t/ack-filetypes.t
@@ -43,8 +43,8 @@ make objc objcpp ocaml-parrot perl+perltest php plone python
@@ -189,12 +189,10 @@ subtest 'File on command line is always searched, even with wrong filetype' => s plan tests => 1; my @expected = qw(- t/swamp/parrot.pir+ t/swamp/notes.md );- my $regex = 'parrot';-- my @files = qw( t/swamp/parrot.pir );- my @args = ( '--html', '-g', $regex );+ my @files = qw( t/swamp/notes.md );+ my @args = ( '--html', '-g', 'notes' ); ack_sets_match( [ @args, @files ], \@expected, 'File on command line is always searched, even with wrong type.' ); };
t/ack-known-types.t
@@ -14,7 +14,6 @@ my @files = qw( t/swamp/0 t/swamp/constitution-100k.pl t/swamp/Rakefile-t/swamp/parrot.pir t/swamp/options-crlf.pl t/swamp/options.pl t/swamp/javascript.js@@ -50,7 +49,6 @@ t/swamp/notes.md my @files_no_perl = qw( t/swamp/Rakefile-t/swamp/parrot.pir t/swamp/javascript.js t/swamp/html.html t/swamp/sample.rake
@@ -17,9 +17,6 @@ my $temp_config = create_tempfile( <<'HERE' ); --noheading --break -# Handle .pmc files---type-set=pmc=.pmc- # Handle .hwd files --type-set=hwd=.hwd
@@ -43,7 +43,6 @@ filter_test( 't/swamp/options-crlf.pl', 't/swamp/options.pl', 't/swamp/options.pl.bak',- 't/swamp/parrot.pir', 't/swamp/perl-test.t', 't/swamp/perl-without-extension', 't/swamp/perl.cgi',@@ -59,7 +58,6 @@ filter_test( 't/swamp/sample.aspx', 't/swamp/sample.rake', 't/swamp/service.svc',- 't/swamp/blib/ignore.pir', 't/swamp/blib/ignore.pm', 't/swamp/blib/ignore.pod', 't/swamp/groceries/fruit',
@@ -34,7 +34,6 @@ UNFILTERED: { sets_match( \@files, [qw( t/swamp/0- t/swamp/blib/ignore.pir t/swamp/blib/ignore.pm t/swamp/blib/ignore.pod t/swamp/constitution-100k.pl@@ -94,7 +93,6 @@ UNFILTERED: { t/swamp/options-crlf.pl t/swamp/options.pl t/swamp/options.pl.bak- t/swamp/parrot.pir t/swamp/perl-test.t t/swamp/perl-without-extension t/swamp/perl.cgi
@@ -3,7 +3,7 @@ use warnings; use strict; -use Test::More tests => 20;+use Test::More tests => 19; use lib 't'; use Util;@@ -15,14 +15,13 @@ my %types_for_file; populate_filetypes(); -sets_match( [filetypes( 't/swamp/perl.pod' )], [qw( parrot perl pod )], 'foo.pod can be multiple things' );+sets_match( [filetypes( 't/swamp/perl.pod' )], [qw( perl pod )], 'foo.pod can be multiple things' ); sets_match( [filetypes( 't/swamp/perl.pm' )], [qw( perl )], 't/swamp/perl.pm' ); sets_match( [filetypes( 't/swamp/Makefile.PL' )], [qw( perl )], 't/swamp/Makefile.PL' ); sets_match( [filetypes( 'Unknown.wango' )], [], 'Unknown' ); ok( is_filetype( 't/swamp/perl.pod', 'perl' ), 'foo.pod can be perl' ); ok( is_filetype( 't/swamp/perl.pod', 'pod' ), 'foo.pod can be pod' );-ok( is_filetype( 't/swamp/perl.pod', 'parrot' ), 'foo.pod can be parrot' ); ok( !is_filetype( 't/swamp/perl.pod', 'ruby' ), 'foo.pod cannot be ruby' ); ok( is_filetype( 't/swamp/perl.handler.pod', 'perl' ), 'perl.handler.pod can be perl' ); ok( is_filetype( 't/swamp/Makefile', 'make' ), 'Makefile is a makefile' );
t/inverted-file-filter.t
@@ -40,7 +40,6 @@ EXCLUDE_ONLY: { t/swamp/notaMakefile t/swamp/notaRakefile t/swamp/notes.md- t/swamp/parrot.pir t/swamp/pipe-stress-freaks.F t/swamp/Rakefile t/swamp/Sample.ascx
t/swamp/blib/ignore.pir
@@ -1,88 +0,0 @@-=head1 INFORMATION--This example shows the usage of C<Stream::read_bytes>.--=head1 FUNCTIONS--=over 4--=item _main---=cut--.sub _main :main- .local pmc stream-- load_bytecode "library/Stream/Sub.pir"- load_bytecode "library/Stream/Replay.pir"-- find_type $I0, "Stream::Sub"- new $P0, $I0- # set the stream's source sub- .const .Sub temp = "_hello"- assign $P0, $P1-- find_type $I0,"Stream::Replay"- stream = new $I0- assign stream, $P0-- $S0 = stream."read_bytes"( 3 )- print "'hel': ["- print $S0- print "]\n"-- stream = clone stream- $P0 = clone stream-- $S0 = stream."read_bytes"( 4 )- print "'lowo': ["- print $S0- print "] = "-- $S0 = $P0."read_bytes"( 4 )- print "["- print $S0- print "]\n"-- $S0 = stream."read"()- print "'rld!': ["- print $S0- print "]\n"-- $S0 = stream."read_bytes"( 100 )- print "'parrotis cool': ["- print $S0- print "]\n"-- end-.end--=item _hello--This sub is used as the source for the stream.--It just writes some text to the stream.--=cut--.sub _hello :method- self."write"( "hello" )- self."write"( "world!" )- self."write"( "parrot" )- self."write"( "is cool" )-.end--=back--=head1 AUTHOR--Jens Rieks E<lt>parrot at jensbeimsurfen dot deE<gt> is the author-and maintainer.-Please send patches and suggestions to the Perl 6 Internals mailing list.--=head1 COPYRIGHT--Copyright (C) 2004, The Perl Foundation.--=cut
t/swamp/parrot.pir
@@ -1,88 +0,0 @@-=head1 INFORMATION--This example shows the usage of C<Stream::read_bytes>.--=head1 FUNCTIONS--=over 4--=item _main---=cut--.sub _main :main- .local pmc stream-- load_bytecode "library/Stream/Sub.pir"- load_bytecode "library/Stream/Replay.pir"-- find_type $I0, "Stream::Sub"- new $P0, $I0- # set the stream's source sub- .const .Sub temp = "_hello"- assign $P0, $P1-- find_type $I0,"Stream::Replay"- stream = new $I0- assign stream, $P0-- $S0 = stream."read_bytes"( 3 )- print "'hel': ["- print $S0- print "]\n"-- stream = clone stream- $P0 = clone stream-- $S0 = stream."read_bytes"( 4 )- print "'lowo': ["- print $S0- print "] = "-- $S0 = $P0."read_bytes"( 4 )- print "["- print $S0- print "]\n"-- $S0 = stream."read"()- print "'rld!': ["- print $S0- print "]\n"-- $S0 = stream."read_bytes"( 100 )- print "'parrotis cool': ["- print $S0- print "]\n"-- end-.end--=item _hello--This sub is used as the source for the stream.--It just writes some text to the stream.--=cut--.sub _hello :method- self."write"( "hello" )- self."write"( "world!" )- self."write"( "parrot" )- self."write"( "is cool" )-.end--=back--=head1 AUTHOR--Jens Rieks E<lt>parrot at jensbeimsurfen dot deE<gt> is the author-and maintainer.-Please send patches and suggestions to the Perl 6 Internals mailing list.--=head1 COPYRIGHT--Copyright (C) 2004, The Perl Foundation.--=cut