diff options
Diffstat (limited to 'contrib/groff/contrib/mm/mmroff.pl')
| -rwxr-xr-x | contrib/groff/contrib/mm/mmroff.pl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/contrib/groff/contrib/mm/mmroff.pl b/contrib/groff/contrib/mm/mmroff.pl index 69b6105b2925..155550bf97ea 100755 --- a/contrib/groff/contrib/mm/mmroff.pl +++ b/contrib/groff/contrib/mm/mmroff.pl @@ -14,8 +14,10 @@ if (grep(/^-x$/, @ARGV)) { @ARGV = grep(!/^-x$/, @ARGV); } -my $check_macro = "groff -rRef=1 -z @ARGV"; -my $run_macro = "groff @ARGV"; +# mmroff should always have -mm, but not twice +@ARGV = grep(!/^-mm$/, @ARGV); +my $check_macro = "groff -rRef=1 -z -mm @ARGV"; +my $run_macro = "groff -mm @ARGV"; my (%cur, $rfilename, $max_height, $imacro, $max_width, @out, @indi); open(MACRO, "$check_macro 2>&1 |") || die "run $check_macro:$!"; @@ -66,11 +68,12 @@ while(<MACRO>) { close(MACRO); -if ($rfilename && @out) { +if ($rfilename) { push(@out, ".nr pict*max-height $max_height\n") if defined $max_height; push(@out, ".nr pict*max-width $max_width\n") if defined $max_width; open(OUT, ">$rfilename") || "create $rfilename:$!"; + print OUT '.\" references', "\n"; my $i; for $i (@out) { print OUT $i; |