| version 1.11, 2019/07/01 22:56:26 |
version 1.13, 2020/01/08 10:37:53 |
| Line 86 sub syshtml ($@) { |
|
| Line 86 sub syshtml ($@) { |
|
| if (!$state && s/.*<math class="eqn">//) { |
if (!$state && s/.*<math class="eqn">//) { |
| $state = 'math'; |
$state = 'math'; |
| next unless length; |
next unless length; |
| } elsif (/^BEGINTEST/) { |
} elsif (/BEGINTEST/) { |
| $state = 'other'; |
$state = 'other'; |
| |
next; |
| |
} elsif (/ENDTEST/) { |
| |
$state = 0; |
| |
next; |
| } |
} |
| if ($state eq 'math') { |
if ($state eq 'math') { |
| s/^ *//; |
s/^ *//; |
| Line 98 sub syshtml ($@) { |
|
| Line 102 sub syshtml ($@) { |
|
| } |
} |
| } |
} |
| print $outfd "$_\n" if $state; |
print $outfd "$_\n" if $state; |
| $state = 0 if /^ENDTEST/; |
|
| } |
} |
| close $outfd; |
close $outfd; |
| close $infd; |
close $infd; |
| Line 162 foreach my $module (qw(roff char mdoc man tbl eqn)) { |
|
| Line 165 foreach my $module (qw(roff char mdoc man tbl eqn)) { |
|
| my %subvars = (MOPTS => ''); |
my %subvars = (MOPTS => ''); |
| parse_makefile "$module/$subdir/Makefile", \%subvars; |
parse_makefile "$module/$subdir/Makefile", \%subvars; |
| parse_makefile "$module/Makefile.inc", \%subvars; |
parse_makefile "$module/Makefile.inc", \%subvars; |
| |
delete $subvars{GOPTS}; |
| delete $subvars{SKIP_GROFF}; |
delete $subvars{SKIP_GROFF}; |
| delete $subvars{SKIP_GROFF_ASCII}; |
delete $subvars{SKIP_GROFF_ASCII}; |
| delete $subvars{TBL}; |
|
| delete $subvars{EQN}; |
|
| my @mandoc = ('../mandoc', split ' ', $subvars{MOPTS}); |
my @mandoc = ('../mandoc', split ' ', $subvars{MOPTS}); |
| delete $subvars{MOPTS}; |
delete $subvars{MOPTS}; |
| my @regress_testnames; |
my @regress_testnames; |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to regress.pl CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [cvsweb.bsd.lv] / mandoc / regress