aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2024-12-04 14:46:39 -05:00
Code

Merge pull request #352 from ailin-nemui/silent_perl

Browse Source 
silent make perl
This commit is contained in:
ailin-nemui 2016-06-09 22:02:22 +02:00
commit 0fad2cd842
6 changed files with 92 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/perl/Makefile.am
View File

@ -117,16 +117,26 @@ textui_sources = \
EXTRA_DIST = \
get-signals.pl \
irssi-core.pl \
Makefile_silent.pm \
$(common_sources) \
$(irc_sources) \
$(ui_sources) \
$(textui_sources)
am_v_pl__show_gen = $(am__v_pl__show_gen_$(V))
am_v_pl__hide_gen = $(am__v_pl__hide_gen_$(V))
am__v_pl__show_gen_ = $(am__v_pl__show_gen_$(AM_DEFAULT_VERBOSITY))
am__v_pl__hide_gen_ = $(am__v_pl__hide_gen_$(AM_DEFAULT_VERBOSITY))
am__v_pl__show_gen_0 = echo " GEN " $$dir ;
am__v_pl__hide_gen_0 = > /dev/null
am__v_pl__show_gen_1 =
am__v_pl__hide_gen_1 =
all-local:
for dir in $(perl_dirs); do \
$(AM_V_GEN)for dir in $(perl_dirs); do \
cd $$dir && \
if [ ! -f Makefile ]; then \
$(perlpath) Makefile.PL $(PERL_MM_PARAMS); \
$(am_v_pl__show_gen)$(perlpath) Makefile.PL $(PERL_MM_PARAMS) $(am_v_pl__hide_gen); \
fi && \
($(MAKE) CC="$(CC)" CCFLAGS="$(PERL_CFLAGS) $(CFLAGS)" $(PERL_EXTRA_OPTS) || \
$(MAKE) CC="$(CC)" CCFLAGS="$(PERL_CFLAGS) $(CFLAGS)" $(PERL_EXTRA_OPTS)) && \

76
src/perl/Makefile_silent.pm Normal file
View File

@ -0,0 +1,76 @@
push @ExtUtils::MakeMaker::Overridable, qw(pm_to_blib);
my $verb = $AM_DEFAULT_VERBOSITY;
{ package MY;
sub _center {
my $z = shift;
length $z == 2 ? " $z " : length $z == 4 ? " $z " : " $z "
}
sub _silent_cmd {
my $z = shift;
$z =~ s{\t(?:- ?)?\K(?=\$\((?|(CC)CMD|(XS)UBPPRUN|(LD|MV|CHMOD)|(RM)_R?F|(CP)_NONEMPTY|FULL_(AR)\)))}{\$(PL_AM_V_$1)}g;
$z
}
sub c_o { _silent_cmd(shift->SUPER::c_o(@_)) }
sub xs_c { _silent_cmd(shift->SUPER::xs_c(@_)) }
sub xs_o { _silent_cmd(shift->SUPER::xs_o(@_)) }
sub dynamic_lib { _silent_cmd(shift->SUPER::dynamic_lib(@_)) }
sub static_lib { _silent_cmd(shift->SUPER::static_lib(@_)) }
sub dynamic_bs {
my $ret = shift->SUPER::dynamic_bs(@_);
$ret =~ s{Running Mkbootstrap for}{\$(PL_AM_V_BS_Text)}g;
_silent_cmd($ret)
}
sub pm_to_blib {
my $ret = shift->SUPER::pm_to_blib(@_);
$ret =~ s{^(\t(?:- ?)?)(?:\$\(NOECHO\) ?)?(.*-e ['"]pm_to_blib(.*\\\n)*.*)$}{$1\$(PL_AM_V_BLIB)$2\$(PL_AM_V_BLIB_Hide)}mg;
$ret
}
sub post_constants {
my $ret = shift->SUPER::post_constants(@_);
my @terse = qw(cc xs ld chmod cp ar blib);
my @silent = qw(mv rm);
my @special = qw(BLIB_Hide);
#default verbosity from command line parameter
$ret .= "
AM_DEFAULT_VERBOSITY = @{[$verb ? 1 : 0]}
";
#default options forward
$ret .= "
PL_AM_V_${_} = \$(pl_am__v_${_}_\$(V))
pl_am__v_${_}_ = \$(pl_am__v_${_}_\$(AM_DEFAULT_VERBOSITY))
" for @special, map uc, @terse, @silent;
#quoted plain text needs extra quotes
$ret .= "
PL_AM_V_BS_Text = \"\$(pl_am__v_BS_Text_\$(V))\"
pl_am__v_BS_Text_ = \$(pl_am__v_BS_Text_\$(AM_DEFAULT_VERBOSITY))
"
#hide pm_to_blib output
. "
pl_am__v_BLIB_Hide_0 = \$(DEV_NULL)
pl_am__v_BLIB_Hide_1 =
"
#text for Mkbootstrap
. "
pl_am__v_BS_Text_0 = \"@{[_center('BS')]}\"
pl_am__v_BS_Text_1 = \"Running Mkbootstrap for\"
";
#"terse" output
$ret .= "
pl_am__v_${_}_0 = \$(NOECHO)echo \"@{[_center($_)]}\" \$\@;
" for map uc, @terse;
#no output
$ret .= "
pl_am__v_${_}_0 = \$(NOECHO)
" for map uc, @silent;
#in verbose mode the "terse" echo expands to nothing
$ret .= "
pl_am__v_${_}_1 =
" for map uc, @terse, @silent;
$ret
}
}
1;

2
src/perl/common/Makefile.PL.in
View File

@ -1,4 +1,4 @@
use ExtUtils::MakeMaker;
use ExtUtils::MakeMaker;our $AM_DEFAULT_VERBOSITY='@AM_DEFAULT_VERBOSITY@';require "../Makefile_silent.pm";
WriteMakefile('NAME' => 'Irssi',
'LIBS' => '',

2
src/perl/irc/Makefile.PL.in
View File

@ -1,4 +1,4 @@
use ExtUtils::MakeMaker;
use ExtUtils::MakeMaker;our $AM_DEFAULT_VERBOSITY='@AM_DEFAULT_VERBOSITY@';require "../Makefile_silent.pm";
WriteMakefile('NAME' => 'Irssi::Irc',
'LIBS' => '',

2
src/perl/textui/Makefile.PL.in
View File

@ -1,4 +1,4 @@
use ExtUtils::MakeMaker;
use ExtUtils::MakeMaker;our $AM_DEFAULT_VERBOSITY='@AM_DEFAULT_VERBOSITY@';require "../Makefile_silent.pm";
WriteMakefile('NAME' => 'Irssi::TextUI',
'LIBS' => '',

2
src/perl/ui/Makefile.PL.in
View File

@ -1,4 +1,4 @@
use ExtUtils::MakeMaker;
use ExtUtils::MakeMaker;our $AM_DEFAULT_VERBOSITY='@AM_DEFAULT_VERBOSITY@';require "../Makefile_silent.pm";
WriteMakefile('NAME' => 'Irssi::UI',
'LIBS' => '',