home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume35 / psutils / part04 / fixfmps < prev    next >
Text File  |  1993-02-04  |  362b  |  16 lines
  1. #!/usr/local/bin/perl
  2. # fixfmps: get conforming PostScript out of FrameMaker file
  3. # move all FMDEFINEFONTs to start of pages
  4.  
  5. %fonts=();
  6.  
  7. while (<>) {
  8.    if (/^([0-9]+) [0-9]+ .* FMDEFINEFONT$/) {
  9.       $fonts{$1} = $_;
  10.    } elsif (/^[0-9]+ [0-9]+ [0-9]+ FMBEGINPAGE$/) {
  11.       print STDOUT $_, join('',values(%fonts));
  12.    } else {
  13.       print STDOUT $_;
  14.    }
  15. }
  16.