The Android Open Source Project | cfb3b27 | 2009-03-03 19:29:20 -0800 | [diff] [blame] | 1 | #!/usr/bin/perl -w |
| 2 | # |
| 3 | # ------------------------------------------------------------------ |
| 4 | # This file is part of bzip2/libbzip2, a program and library for |
| 5 | # lossless, block-sorting data compression. |
| 6 | # |
Elliott Hughes | 8645cf6 | 2021-12-08 15:07:46 -0800 | [diff] [blame] | 7 | # bzip2/libbzip2 version 1.0.8 of 13 July 2019 |
| 8 | # Copyright (C) 1996-2019 Julian Seward <jseward@acm.org> |
The Android Open Source Project | cfb3b27 | 2009-03-03 19:29:20 -0800 | [diff] [blame] | 9 | # |
| 10 | # Please read the WARNING, DISCLAIMER and PATENTS sections in the |
| 11 | # README file. |
| 12 | # |
| 13 | # This program is released under the terms of the license contained |
| 14 | # in the file LICENSE. |
| 15 | # ------------------------------------------------------------------ |
| 16 | # |
| 17 | use strict; |
| 18 | |
| 19 | # get command line values: |
| 20 | if ( $#ARGV !=1 ) { |
| 21 | die "Usage: $0 xml_infile xml_outfile\n"; |
| 22 | } |
| 23 | |
| 24 | my $infile = shift; |
| 25 | # check infile exists |
| 26 | die "Can't find file \"$infile\"" |
| 27 | unless -f $infile; |
| 28 | # check we can read infile |
| 29 | if (! -r $infile) { |
| 30 | die "Can't read input $infile\n"; |
| 31 | } |
| 32 | # check we can open infile |
| 33 | open( INFILE,"<$infile" ) or |
| 34 | die "Can't input $infile $!"; |
| 35 | |
| 36 | #my $outfile = 'fmt-manual.xml'; |
| 37 | my $outfile = shift; |
| 38 | #print "Infile: $infile, Outfile: $outfile\n"; |
| 39 | # check we can write to outfile |
| 40 | open( OUTFILE,">$outfile" ) or |
| 41 | die "Can't output $outfile $! for writing"; |
| 42 | |
| 43 | my ($prev, $curr, $str); |
| 44 | $prev = ''; $curr = ''; |
| 45 | while ( <INFILE> ) { |
| 46 | |
| 47 | print OUTFILE $prev; |
| 48 | $prev = $curr; |
| 49 | $curr = $_; |
| 50 | $str = ''; |
| 51 | |
| 52 | if ( $prev =~ /<programlisting>$|<screen>$/ ) { |
| 53 | chomp $prev; |
| 54 | $curr = join( '', $prev, "<![CDATA[", $curr ); |
| 55 | $prev = ''; |
| 56 | next; |
| 57 | } |
| 58 | elsif ( $curr =~ /<\/programlisting>|<\/screen>/ ) { |
| 59 | chomp $prev; |
| 60 | $curr = join( '', $prev, "]]>", $curr ); |
| 61 | $prev = ''; |
| 62 | next; |
| 63 | } |
| 64 | } |
| 65 | print OUTFILE $curr; |
| 66 | close INFILE; |
| 67 | close OUTFILE; |
| 68 | exit; |