EMBOSS: Change Log

#!/usr/bin/perl -w # This is a utility to convert the ChangeLog file to HTML ################################################################### # # Some useful definitions # ################################################################### # where the CVS tree ChangeLog file is my $cvsfile = "$ENV{HOME}/devemboss/ChangeLog"; # where the web page file is my $htmlfile = "$ENV{HOME}/sfdoc/developers/changelog.html"; my @headings; # list of heading titles my $line; my $i; my $count; my $pre_flag; open (IN, "< $cvsfile") || die "Can't open $cvsfile\n"; open (OUT, "> $htmlfile") || die "Can't open $htmlfile\n"; # start HTML print OUT qq| |; # write warning note print OUT qq| |; # write header stuff print OUT qq| EMBOSS: Change Log

Change Log

|; # parse source for headings @headings = (); while ($line = ) { if ($line !~ /^\s/) { push @headings, $line } } # write contents list print OUT qq|

|; # parse source for text seek IN, 0, 0; # go back to start of file $count = 0; $pre_flag = 0; while ($line = ) { # heading found if ($line !~ /^\s/) { if ($pre_flag) { print OUT qq||; $pre_flag = 0; } print OUT qq|

$line

|; $count++; next; } # blank line is a paragraph end if ($line =~ /^\s*$/ || $line =~ /^\t*$/) { if ($pre_flag) { print OUT qq||; $pre_flag = 0; } print OUT qq|

|; next; } # indent of more than a TAB is the start of a

 block
    if ($line =~ /^\t\s+/ || $line =~ /^\t\t+/) {
        if (! $pre_flag) {
            $pre_flag = 1;
            print OUT qq||;
        }
        print OUT qq|$line|;
        next;
    }

# else just print the line
    if ($pre_flag) {
        print OUT qq||;
        $pre_flag = 0;
    }
    print OUT qq|$line|;

}



# end HTML
print OUT qq|

|;

close (OUT);
close (IN);



print "Done.\n";

Contents

$line