cannam@89: #!/usr/bin/perl -w
cannam@89: #
cannam@89: # ------------------------------------------------------------------
cannam@89: # This file is part of bzip2/libbzip2, a program and library for
cannam@89: # lossless, block-sorting data compression.
cannam@89: #
cannam@89: # bzip2/libbzip2 version 1.0.6 of 6 September 2010
cannam@89: # Copyright (C) 1996-2010 Julian Seward <jseward@bzip.org>
cannam@89: #
cannam@89: # Please read the WARNING, DISCLAIMER and PATENTS sections in the 
cannam@89: # README file.
cannam@89: #
cannam@89: # This program is released under the terms of the license contained
cannam@89: # in the file LICENSE.
cannam@89: # ------------------------------------------------------------------
cannam@89: #
cannam@89: use strict;
cannam@89: 
cannam@89: # get command line values:
cannam@89: if ( $#ARGV !=1 ) {
cannam@89:     die "Usage:  $0 xml_infile xml_outfile\n";
cannam@89: }
cannam@89: 
cannam@89: my $infile = shift;
cannam@89: # check infile exists
cannam@89: die "Can't find file \"$infile\""
cannam@89:   unless -f $infile;
cannam@89: # check we can read infile
cannam@89: if (! -r $infile) {
cannam@89:     die "Can't read input $infile\n";
cannam@89: }
cannam@89: # check we can open infile
cannam@89: open( INFILE,"<$infile" ) or 
cannam@89:     die "Can't input $infile $!";
cannam@89: 
cannam@89: #my $outfile = 'fmt-manual.xml';
cannam@89: my $outfile = shift;
cannam@89: #print "Infile: $infile, Outfile: $outfile\n";
cannam@89: # check we can write to outfile
cannam@89: open( OUTFILE,">$outfile" ) or 
cannam@89:     die "Can't output $outfile $! for writing";
cannam@89: 
cannam@89: my ($prev, $curr, $str);
cannam@89: $prev = ''; $curr = '';
cannam@89: while ( <INFILE> ) {
cannam@89: 
cannam@89: 		print OUTFILE $prev;
cannam@89:     $prev = $curr;
cannam@89:     $curr = $_;
cannam@89:     $str = '';
cannam@89: 
cannam@89:     if ( $prev =~ /<programlisting>$|<screen>$/ ) {
cannam@89:         chomp $prev;
cannam@89:         $curr = join( '', $prev, "<![CDATA[", $curr );
cannam@89: 				$prev = '';
cannam@89:         next;
cannam@89:     }
cannam@89:     elsif ( $curr =~ /<\/programlisting>|<\/screen>/ ) {
cannam@89:         chomp $prev;
cannam@89:         $curr = join( '', $prev, "]]>", $curr );
cannam@89: 				$prev = '';
cannam@89:         next;
cannam@89:     }
cannam@89: }
cannam@89: print OUTFILE $curr;
cannam@89: close INFILE;
cannam@89: close OUTFILE;
cannam@89: exit;