mandoc/regress/regress.pl - diff

Return to regress.pl CVS log

Up to [cvsweb.bsd.lv] / mandoc / regress

version 1.8, 2017/07/18 18:47:06

version 1.9, 2018/12/16 00:17:04

Line 79 sub syshtml ($@) {

open my $outfd, '>', $outfile or die "$outfile: $!";

my $infd;

my $pid = open3 undef, $infd, undef, @_;

my $state;

my $state = 0;

while (<$infd>) {

chomp;

if (!$state && s/.*<math class="eqn">//) {

$state = 1;

$state = 'math';

next unless length;

} elsif (/^BEGINTEST/) {

$state = 'other';

}

$state = 1 if /^BEGINTEST/;

if ($state eq 'math') {

if ($state && s/<\/math>.*//) {

s/^ *//;

print $outfd "$_\n" if length;

if (s/<\/math>.*//) {

undef $state;

print $outfd "$_\n" if length;

next;

$state = 0;

next;

}

s/^ *//;

print $outfd "$_\n" if $state;

undef $state if /^ENDTEST/;

$state = 0 if /^ENDTEST/;

}

close $outfd;

close $infd;