Usenet 1994 January/usenetsourcesnewsgroupsinfomagicjanuary1994.iso/sources/misc/volume22/psutils/part01/fixfmps

Text File | 1991-09-04 | 359 b | 16 lines

#!/usr/local/bin/perl
# fmps: get conforming PostScript out of FrameMaker file
# move all FMDEFINEFONTs to start of pages

%fonts=();

while (<>) {
   if (/^([0-9]+) [0-9]+ .* FMDEFINEFONT$/) {
      $fonts{$1} = $_;
   } elsif (/^[0-9]+ [0-9]+ [0-9]+ FMBEGINPAGE$/) {
      print STDOUT $_, join('',values(%fonts));
   } else {
      print STDOUT $_;
   }
}