mirrors/netsurf
1
0
Fork 0
mirror of https://github.com/netsurf-browser/netsurf synced 2024-11-22 06:21:45 +03:00
Code Issues Packages Projects Releases Wiki Activity

Support compression on output stream

Browse Source
This commit is contained in:
Daniel Silverstone 2018-04-22 10:10:53 +01:00
parent 42f5bb6182
commit 83e8f377ad
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
utils/split-messages.pl
View File

@ -34,6 +34,8 @@ use strict;
use Getopt::Long ();
use Fcntl qw( O_CREAT O_EXCL O_WRONLY O_APPEND O_RDONLY O_WRONLY );
use IO::Compress::Gzip;
use constant GETOPT_OPTS => qw( auto_abbrev no_getopt_compat bundling );
use constant GETOPT_SPEC =>
qw( output|o=s
@ -43,6 +45,7 @@ use constant GETOPT_SPEC =>
plat|platform|p=s
format|fmt|f=s
warning|W=s
gzip|z
help|h|? );
# default option values:
@ -214,7 +217,7 @@ sub input_stream ()
return \*STDIN;
}
sub output_stream ()
sub underlying_output_stream ()
{
if( $opt{output} )
{
@ -229,6 +232,18 @@ sub output_stream ()
return \*STDOUT;
}
sub output_stream ()
{
my $ofh = underlying_output_stream();
if( $opt{gzip} )
{
$ofh = new IO::Compress::Gzip( $ofh, AutoClose => 1, -Level => 9 );
}
return $ofh;
}
sub formatter ()
{
my $name = $opt{format};