#!/usr/local/bin/perl
#
#	日本語版Acrobatを使う場合、NeXTが吐く /GothicBBBHelvetica の
#	ようなフォントをちゃんと扱えないようなので、GothicBBB-Medium-EUC-H
#	または Helvetica に変換してからAcrobatに食わせるようにする。
#
#       e.g. dvi2ps UIST95.dvi | psfontconv -e > UIST95.ps
#
#       $Date: 2003/04/29 10:26:14 $
#       $Revision: 1.1 $
#
require 'getopts.pl';

&Getopts('e');

if($opt_e){
        while(<>){
                s/GothicBBBHelvetica[\w\-]* findfont/Helvetica findfont/g;
                s/GothicBBBCourier[\w\-]* findfont/Courier findfont/g;
                s/RyuminTimes[\w\-]* findfont/Times-Roman findfont/g;
                print;
        }
}
else {
        while(<>){
                s/GothicBBB[\w\-]* findfont/GothicBBB-Medium-EUC-H findfont/g;
                s/RyuminTimes[\w\-]* findfont/Ryumin-Light-EUC-H findfont/g;
                print;
        }
}