mirror of
https://gitlab.com/bzip2/bzip2.git
synced 2025-04-19 21:02:16 +03:00
7b44372099
Increase the project version to 1.1.0 as this is a new feature version. As for all new feature versions, increase the libtool .so version. Only increase the revision, as no API's were added or removed. It may look like I've increased it by 2, but that's because v1.0.8 used Makefiles and was at 1:8:0. See http://www.gnu.org/software/libtool/manual/html_node/Updating-version-info.html
69 lines
1.6 KiB
Perl
Executable File
69 lines
1.6 KiB
Perl
Executable File
#!/usr/bin/perl -w
|
|
#
|
|
# ------------------------------------------------------------------
|
|
# This file is part of bzip2/libbzip2, a program and library for
|
|
# lossless, block-sorting data compression.
|
|
#
|
|
# bzip2/libbzip2 version 1.1.0 of 6 September 2010
|
|
# Copyright (C) 1996-2010 Julian Seward <jseward@acm.org>
|
|
#
|
|
# Please read the WARNING, DISCLAIMER and PATENTS sections in the
|
|
# README file.
|
|
#
|
|
# This program is released under the terms of the license contained
|
|
# in the file LICENSE.
|
|
# ------------------------------------------------------------------
|
|
#
|
|
use strict;
|
|
|
|
# get command line values:
|
|
if ( $#ARGV !=1 ) {
|
|
die "Usage: $0 xml_infile xml_outfile\n";
|
|
}
|
|
|
|
my $infile = shift;
|
|
# check infile exists
|
|
die "Can't find file \"$infile\""
|
|
unless -f $infile;
|
|
# check we can read infile
|
|
if (! -r $infile) {
|
|
die "Can't read input $infile\n";
|
|
}
|
|
# check we can open infile
|
|
open( INFILE,"<$infile" ) or
|
|
die "Can't input $infile $!";
|
|
|
|
#my $outfile = 'fmt-manual.xml';
|
|
my $outfile = shift;
|
|
#print "Infile: $infile, Outfile: $outfile\n";
|
|
# check we can write to outfile
|
|
open( OUTFILE,">$outfile" ) or
|
|
die "Can't output $outfile $! for writing";
|
|
|
|
my ($prev, $curr, $str);
|
|
$prev = ''; $curr = '';
|
|
while ( <INFILE> ) {
|
|
|
|
print OUTFILE $prev;
|
|
$prev = $curr;
|
|
$curr = $_;
|
|
$str = '';
|
|
|
|
if ( $prev =~ /<programlisting>$|<screen>$/ ) {
|
|
chomp $prev;
|
|
$curr = join( '', $prev, "<![CDATA[", $curr );
|
|
$prev = '';
|
|
next;
|
|
}
|
|
elsif ( $curr =~ /<\/programlisting>|<\/screen>/ ) {
|
|
chomp $prev;
|
|
$curr = join( '', $prev, "]]>", $curr );
|
|
$prev = '';
|
|
next;
|
|
}
|
|
}
|
|
print OUTFILE $curr;
|
|
close INFILE;
|
|
close OUTFILE;
|
|
exit;
|