#!/usr/bin/env perl

use strict;

foreach my $f (@ARGV) {
    my $f_new = 'fake_times_' . $f;
    open(R, "t1disasm $f |") or die $!;
    open(W, "| t1asm > $f_new") or die $!;

    while (<R>) {
	s/\(Nimbus Roman No9 L Regular Italic\)/\(Times Italic\)/;
	s/\(Nimbus Roman No9 L Regular\)/\(Times Roman\)/;
	s/\(Nimbus Roman No9 L Medium Italic\)/\(Times Bold Italic\)/;
	s/\(Nimbus Roman No9 L Medium\)/\(Times Bold\)/;

	s/\/NimbusRomNo9L-ReguItal/\/Times-Italic/;
	s/\/NimbusRomNo9L-Regu/\/Times-Roman/;
	s/\/NimbusRomNo9L-MediItal/\/Times-BoldItalic/;
	s/\/NimbusRomNo9L-Medi/\/Times-Bold/;

	s/\(Nimbus Roman No9 L\)/\(Times\)/;

	print W $_;
    }

    close(W);
    close(F);
}