summaryrefslogtreecommitdiff
path: root/fonts/psfonts/corelpak
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2020-12-18 03:01:03 +0000
committerNorbert Preining <norbert@preining.info>2020-12-18 03:01:03 +0000
commit95242c8a1bf6073dc44ee74ca09e791c05bccbc0 (patch)
tree7d67657668c6dc8ba36015a943018971f4a6d3fc /fonts/psfonts/corelpak
parent69b64e1de8e6fdcce00047e99369a1ea498a99dd (diff)
CTAN sync 202012180301
Diffstat (limited to 'fonts/psfonts/corelpak')
-rw-r--r--fonts/psfonts/corelpak/contrib/README53
-rwxr-xr-xfonts/psfonts/corelpak/contrib/translate-font.pl71
-rwxr-xr-xfonts/psfonts/corelpak/contrib/translate-font.pl,v133
-rw-r--r--fonts/psfonts/corelpak/contrib/transtabl80
4 files changed, 0 insertions, 337 deletions
diff --git a/fonts/psfonts/corelpak/contrib/README b/fonts/psfonts/corelpak/contrib/README
deleted file mode 100644
index 26e4722b20..0000000000
--- a/fonts/psfonts/corelpak/contrib/README
+++ /dev/null
@@ -1,53 +0,0 @@
-This README describes the files in CTAN:fonts/psfonts/corelpak/contrib,
-a file renaming tool for commercial corelpak font files.
-
-Author: Karsten Tinnefeld <karsten@tinnefeld.com>
-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 <karsten@tinnefeld.com>.
-
-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
deleted file mode 100755
index ab85ef4196..0000000000
--- a/fonts/psfonts/corelpak/contrib/translate-font.pl
+++ /dev/null
@@ -1,71 +0,0 @@
-#!/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 = <CDMNT>;
- chop $cd;
- close CDMNT;
-} else {
- print "Please enter a mountpoint (or device letter) for the Corel CD.\n: ";
- $cd = <STDIN>;
- 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 = <TBL>) {
- 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
deleted file mode 100755
index aeb723c2e1..0000000000
--- a/fonts/psfonts/corelpak/contrib/translate-font.pl,v
+++ /dev/null
@@ -1,133 +0,0 @@
-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 = <CDMNT>;
- chop $cd;
- close CDMNT;
-} else {
- print "Please enter a mountpoint (or device letter) for the Corel CD.\n: ";
- $cd = <STDIN>;
- 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 = <TBL>) {
- 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
deleted file mode 100644
index f1bfde4318..0000000000
--- a/fonts/psfonts/corelpak/contrib/transtabl
+++ /dev/null
@@ -1,80 +0,0 @@
-# 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 <karsten@tinnefeld.com>
-#
-# 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