From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- fonts/psfonts/corelpak/contrib/README | 53 ++++++++ fonts/psfonts/corelpak/contrib/translate-font.pl | 71 +++++++++++ fonts/psfonts/corelpak/contrib/translate-font.pl,v | 133 +++++++++++++++++++++ fonts/psfonts/corelpak/contrib/transtabl | 80 +++++++++++++ 4 files changed, 337 insertions(+) create mode 100644 fonts/psfonts/corelpak/contrib/README create mode 100755 fonts/psfonts/corelpak/contrib/translate-font.pl create mode 100755 fonts/psfonts/corelpak/contrib/translate-font.pl,v create mode 100644 fonts/psfonts/corelpak/contrib/transtabl (limited to 'fonts/psfonts/corelpak/contrib') diff --git a/fonts/psfonts/corelpak/contrib/README b/fonts/psfonts/corelpak/contrib/README new file mode 100644 index 0000000000..26e4722b20 --- /dev/null +++ b/fonts/psfonts/corelpak/contrib/README @@ -0,0 +1,53 @@ +This README describes the files in CTAN:fonts/psfonts/corelpak/contrib, +a file renaming tool for commercial corelpak font files. + +Author: Karsten Tinnefeld +Changed: 1999-01-12 +Files: +-rw-r--r-- 2310 Jan 12 16:56 README (this file) +-r-xr-xr-x 1842 Jan 12 16:37 translate-font.pl (perl script) +-r-xr-xr-x 2524 Jan 12 16:52 translate-font.pl,v (rcs archive) +-rw-r--r-- 1224 Jan 12 16:13 transtabl (ascii database) + +For renaming the .pfb and .afm files that come with Corel software, a half +automatic tool is work in progress. You can try the first version by +putting the files translate-font.pl and transtabl into one writable +directory in your PATH. Modify the first line of translate-font.pl to match +the location of your Perl interpreter. At first startup you will be +asked for a mountpoint for the CD, enter /cdrom/ or f:\ or the like. +This will be checkpointed in a file called mountpoint. Remove this +file in order to use another mount point. Call translate-font.pl in +either one of the following two ways: + + translate-font.pl PATTERN + +this will scan the font directories for all fonts that match the PATTERN +and output their names (if extractable from the .pfb file). PATTERN +must begin with a letter in [a-z] and may contain wildcards, thus +'amri*' will output the names of the amerigo fonts. Take care to hide +the wildcards from prior shell expansion by using single quotes of +backslashification. + + translate-font.pl PATTERN pfb or + translate-font.pl PATTERN afm + +this will copy any matching font to the current directory, provided +their names are already known in »transtabl«. This file consists of +lines that list the original font name followed by white space +followed by the tex font name (without suffixes). I hope, the names do +not differ from one Corel version to the other. + +You will find the correct tex font name in Karl Berry's fontname files +(CTAN:doc/fontname/). They might not in any case match the names in the +.map files in this distribution, however. + +This tool is not expected to work under DOS at the moment, not even if +you have the head, tail and strings programs installed. This will change +only by your aid. + +Please send me any font translation rules you have added, hints about +bugs and errors to Karsten Tinnefeld . + +Please note that corelpak-contrib does not, will not and never has included +any third hand copyrighted material, be it names, strokes, measurements or +whatever. diff --git a/fonts/psfonts/corelpak/contrib/translate-font.pl b/fonts/psfonts/corelpak/contrib/translate-font.pl new file mode 100755 index 0000000000..ab85ef4196 --- /dev/null +++ b/fonts/psfonts/corelpak/contrib/translate-font.pl @@ -0,0 +1,71 @@ +#!/app/unido-inf/sun4_55/perl/5.004.03/bin/perl + +die "Syntax: $0 pattern [suffix]\n" if ($#ARGV == -1 || $#ARGV > 1); + +use Cwd qw/cwd/; +use File::Copy qw/cp/; +use File::Basename qw(dirname); + +$destination=cwd(); +$prgdir = dirname $0; + +$tblfile = $prgdir . "/transtabl"; +$mntfile = $prgdir . "/mountpoint"; + +if (open CDMNT, $mntfile) { + $cd = ; + chop $cd; + close CDMNT; +} else { + print "Please enter a mountpoint (or device letter) for the Corel CD.\n: "; + $cd = ; + chop $cd; + die "No such directory: $cd.\n" unless -d $cd; + system "echo $cd > $mntfile"; +} +$fontdir="$cd/fonts/type1"; + +open TBL, $tblfile or die "$tblfile - $!"; +while ($entry = ) { + next if length($entry) == 1 or $entry =~ /^#/; + + ($key, $name) = split /\s+/, $entry; +# print "Translation of $key is $name.\n"; + @translation{$key} = $name; +} +close TBL; + +$searchname=$ARGV[0]; +$firstchar=substr $searchname, 0, 1; +$firstchar =~ /[a-z]/ or die "$searchname doesn't start with letter.\n"; + +chdir "$fontdir/$firstchar" or die "cannot cd to $fontdir/$firstchar.\n"; + +@files = glob $searchname; + +$justscan = not ($suffix = $ARGV[1]); +print "Obtaining .$suffix-suffixed files.\n" unless $justscan; + +foreach $file (@files) { + next if ($file !~ m/pfb$/); + $head = `strings $file | head -1`; + (undef, $name, undef) = split " ", $head; + print "»$file«:", " " x (15 - length $file), "$name\n"; +} + +exit if $justscan; + +foreach $file (@files) { + + next if ($file !~ /$suffix$/); + + ($rawfile) = split /.$suffix$/, $file; + if (not defined $translation{$rawfile}) { + print "»$file«:", " " x (15 - length $file), + "Translation ($rawfile) unknown, skipping.\n"; + next; + } + $destfile = "$translation{$rawfile}.$suffix"; + print "Copying $file to $destfile.\n"; + cp $file, "$destination/$destfile"; +} diff --git a/fonts/psfonts/corelpak/contrib/translate-font.pl,v b/fonts/psfonts/corelpak/contrib/translate-font.pl,v new file mode 100755 index 0000000000..aeb723c2e1 --- /dev/null +++ b/fonts/psfonts/corelpak/contrib/translate-font.pl,v @@ -0,0 +1,133 @@ +head 1.3; +access; +symbols; +locks; strict; +comment @# @; + + +1.3 +date 99.01.12.15.52.33; author tinne; state Exp; +branches; +next 1.2; + +1.2 +date 99.01.08.11.30.25; author tinne; state Exp; +branches; +next 1.1; + +1.1 +date 99.01.08.09.13.53; author tinne; state Exp; +branches; +next ; + + +desc +@@ + + +1.3 +log +@Added Shorthelp, use some more perl modules but shell commands. +@ +text +@#!/app/unido-inf/sun4_55/perl/5.004.03/bin/perl + +die "Syntax: $0 pattern [suffix]\n" if ($#ARGV == -1 || $#ARGV > 1); + +use Cwd qw/cwd/; +use File::Copy qw/cp/; +use File::Basename qw(dirname); + +$destination=cwd(); +$prgdir = dirname $0; + +$tblfile = $prgdir . "/transtabl"; +$mntfile = $prgdir . "/mountpoint"; + +if (open CDMNT, $mntfile) { + $cd = ; + chop $cd; + close CDMNT; +} else { + print "Please enter a mountpoint (or device letter) for the Corel CD.\n: "; + $cd = ; + chop $cd; + die "No such directory: $cd.\n" unless -d $cd; + system "echo $cd > $mntfile"; +} +$fontdir="$cd/fonts/type1"; + +open TBL, $tblfile or die "$tblfile - $!"; +while ($entry = ) { + next if length($entry) == 1 or $entry =~ /^#/; + + ($key, $name) = split /\s+/, $entry; +# print "Translation of $key is $name.\n"; + @@translation{$key} = $name; +} +close TBL; + +$searchname=$ARGV[0]; +$firstchar=substr $searchname, 0, 1; +$firstchar =~ /[a-z]/ or die "$searchname doesn't start with letter.\n"; + +chdir "$fontdir/$firstchar" or die "cannot cd to $fontdir/$firstchar.\n"; + +@@files = glob $searchname; + +$justscan = not ($suffix = $ARGV[1]); +print "Obtaining .$suffix-suffixed files.\n" unless $justscan; + +foreach $file (@@files) { + next if ($file !~ m/pfb$/); + $head = `strings $file | head -1`; + (undef, $name, undef) = split " ", $head; + print "»$file«:", " " x (15 - length $file), "$name\n"; +} + +exit if $justscan; + +foreach $file (@@files) { + + next if ($file !~ /$suffix$/); + + ($rawfile) = split /.$suffix$/, $file; + if (not defined $translation{$rawfile}) { + print "»$file«:", " " x (15 - length $file), + "Translation ($rawfile) unknown, skipping.\n"; + next; + } + $destfile = "$translation{$rawfile}.$suffix"; + print "Copying $file to $destfile.\n"; + cp $file, "$destination/$destfile"; +} +@ + + +1.2 +log +@added dos specific comment. +@ +text +@d3 1 +a3 1 +use File::Copy "cp"; +d5 6 +a10 2 +$cwd=`pwd`; chop $cwd; +$prgdir = `dirname $0`; chop $prgdir; +d70 1 +a70 1 + cp $file, "$cwd/$destfile"; +@ + + +1.1 +log +@Initial revision +@ +text +@d16 1 +a16 1 + print "Please enter a mountpoint for the Corel CD.\n: "; +@ diff --git a/fonts/psfonts/corelpak/contrib/transtabl b/fonts/psfonts/corelpak/contrib/transtabl new file mode 100644 index 0000000000..f1bfde4318 --- /dev/null +++ b/fonts/psfonts/corelpak/contrib/transtabl @@ -0,0 +1,80 @@ +# Conversion table (begun) for the Fonts contained in the Corel pack. +# They are named: Official Name (Bitstream-Name, if not identical) +# +# created 1999-01-07 Karsten Tinnefeld +# +# changed 1999-03-09: corrected some encoding names, (kt) +# changed names to fit for fontinst. +# added Letter Gothic. + +# Amerigo +amrigob beob8a +amrigobi beobi8a +amrigom beom8a +amrigomi beomi8a +amrigon beor8a +amrigoi beori8a + +# Cheltenham +chlthmb bctb8a +chltboc bctb8an +chltboxc bctb8aq +chltboa bctbd8a +chltboia bctbid8a +chlthmbi bctbi8a +chltboci bctbi8an +chlthmn bctr8a +chlthmi bctri8a + +# Garamond (ITC Garamond) +garamdb bgmb8a +garamdbc bgmb8an +garamdbi bgmbi8a +garambci bgmbi8an +garamdn bgmk8a +garamdnc bgmk8an +garamdni bgmki8a +garamnci bgmki8an + +# Trump Mediaeval (Kuenstler 480) +kuen408b btvb8a +kue408bi btvbi8a +kuen408k btvc8a +kuen408n btvr8a +kuen408i btvri8a + +# Letter Gothic 12 Pitch +legot12b blgb8a +lego12bi blgbi8a +letgot12 blgr8a +legot12i blgri8a + +# Schneidler +schndlb bssb8a +schndlbi bssbi8a +schndlk bssc8a +schndlki bssci8a +schndll bssl8a +schndlli bssli8a +schndlm bssm8a +schndlmi bssmi8a +schndln bssr8a +schndli bssri8a + +# Tiffany (ITC Tiffany) +tifanyd btfd8a +tifanydi btfdi8a +tifanyh btfh8a +tifanyhi btfhi8a +tifanyl btfl8a +tifanyli btfli8a + +# Optima (Zapf Humanist 601) +zhum601b bopb8a +zhu601bi bopbi8a +zhum601d bopd8a +zhu601di bopdi8a +zhum601n bopr8a +zhum601i bopri8a +zhum601u bopu8a +zhu601ui bopui8a -- cgit v1.2.3