From 95242c8a1bf6073dc44ee74ca09e791c05bccbc0 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 18 Dec 2020 03:01:03 +0000 Subject: CTAN sync 202012180301 --- 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 +++++++++++++ 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 ------------- 8 files changed, 337 insertions(+), 337 deletions(-) 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 delete mode 100644 fonts/psfonts/corelpak/contrib/README delete mode 100755 fonts/psfonts/corelpak/contrib/translate-font.pl delete mode 100755 fonts/psfonts/corelpak/contrib/translate-font.pl,v delete mode 100644 fonts/psfonts/corelpak/contrib/transtabl (limited to 'fonts/psfonts') 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 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 -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 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 = ; - 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 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 = ; - 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 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 -# -# 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