psutils/fixfmps.pl

   1 @PERL@
   2 # fixfmps: get conforming PostScript out of FrameMaker version 2 file
   3 # move all FMDEFINEFONTs to start of pages
   4 #
   5 # Copyright (C) Angus J. C. Duggan 1991-1995
   6 # See file LICENSE for details.
   7
   8 %fonts=();
   9
  10 while (<>) {
  11    if (/^([0-9]+) [0-9]+ .* FMDEFINEFONT$/) {
  12       $fonts{$1} = $_;
  13    } elsif (/^[0-9.]+ [0-9.]+ [0-9]+ FMBEGINPAGE$/) {
  14       print $_, join('',values(%fonts));
  15    } elsif (m%(.*/PageSize \[paperwidth paperheight\]put )setpagedevice(.*)%) {
  16       print "$1pop$2\n";
  17    } else {
  18       print $_;
  19    }
  20 }
  21 @END@