[Groff-commit] groff/src/roff/grog grog.pl

[Bernd Warken]

CVSROOT:        /cvsroot/groff
Module name:    groff
Changes by:     Bernd Warken <bwarken>  06/11/06 21:00:42

Modified files:
        src/roff/grog  : grog.pl 

Log message:
        Fix .PS in src/roff/grog/grog.pl.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/groff/src/roff/grog/grog.pl?cvsroot=groff&r1=1.17&r2=1.18

Patches:
Index: grog.pl
===================================================================
RCS file: /cvsroot/groff/groff/src/roff/grog/grog.pl,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -b -r1.17 -r1.18
--- grog.pl     6 Nov 2006 17:57:22 -0000       1.17
+++ grog.pl     6 Nov 2006 21:00:42 -0000       1.18
@@ -157,17 +157,23 @@
        $Groff{'pic'}++;
        $Groff{'soelim'}++ if $level;
       }
-    } elsif (/^\.PS$Sp([ 0-9.<].*)?$/) {
-      if (/^\.PS\s*<\s*(\S+)/) {
+#    } 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+)/) {
        &process($1, $level);
-      } else {
-       $_ = <FILE>;
-       if (!/^\./ || /^\.ps/) {
-         $Groff{'pic'}++;
-         $Groff{'soelim'}++ if $level;
-       }
       }
     } elsif (/^\.R1$Sp/) {
       $Groff{'refer'}++;