diff options
author | bwarken <bwarken> | 2006-11-06 21:00:42 +0000 |
---|---|---|
committer | bwarken <bwarken> | 2006-11-06 21:00:42 +0000 |
commit | f937796a0388f10203b9d7bb36f1c1b95c0a451c (patch) | |
tree | 3dfec6dfc990c4800eb2e3a1c05bd15d9f53d715 /src/roff/grog | |
parent | cb2a18462666777de51c7f82ff890fd12c26d478 (diff) | |
download | groff-f937796a0388f10203b9d7bb36f1c1b95c0a451c.tar.gz |
Fix .PS in src/roff/grog/grog.pl.
Diffstat (limited to 'src/roff/grog')
-rw-r--r-- | src/roff/grog/grog.pl | 24 |
1 files changed, 15 insertions, 9 deletions
diff --git a/src/roff/grog/grog.pl b/src/roff/grog/grog.pl index 3540c532..ddb067ad 100644 --- a/src/roff/grog/grog.pl +++ b/src/roff/grog/grog.pl @@ -157,17 +157,23 @@ sub process { $Groff{'pic'}++; $Groff{'soelim'}++ if $level; } - } elsif (/^\.PS$Sp([ 0-9.<].*)?$/) { +# } elsif (/^\.PS\Sp([ 0-9.<].*)?$/) { +# if (/^\.PS\s*<\s*(\S+)/) { +# $Groff{'pic'}++; +# $Groff{'soelim'}++ if $level; +# &process($1, $level); +# } else { +# $_ = <FILE>; +# if (!/^\./ || /^\.ps/) { +# $Groff{'pic'}++; +# $Groff{'soelim'}++ if $level; +# } +# } + } elsif (/^\.PS[\s\n<]/) { + $Groff{'pic'}++; + $Groff{'soelim'}++ if $level; if (/^\.PS\s*<\s*(\S+)/) { - $Groff{'pic'}++; - $Groff{'soelim'}++ if $level; &process($1, $level); - } else { - $_ = <FILE>; - if (!/^\./ || /^\.ps/) { - $Groff{'pic'}++; - $Groff{'soelim'}++ if $level; - } } } elsif (/^\.R1$Sp/) { $Groff{'refer'}++; |