| Revision 10670,
801 bytes
checked in by ghudson, 27 years ago
(diff) |
|
Put backslashes before '@' signs, for perl 5 compatibility.
|
| Line | |
|---|
| 1 | # Synopsis: |
|---|
| 2 | # perl -n afmgen.pl afmfiles.upr.orig 1>afmfiles.upr 2>install-commands |
|---|
| 3 | # |
|---|
| 4 | # $Header: /afs/dev.mit.edu/source/repository/third/transcript/lib/afmgen.pl,v 1.2 1997-11-04 18:01:06 ghudson Exp $ |
|---|
| 5 | # |
|---|
| 6 | # This script is used to support the use of full font names for filenames |
|---|
| 7 | # of AFM font files. It reads the original Adobe afmfiles.upr, which |
|---|
| 8 | # contains (among other things) lines referring to "short" filenames like |
|---|
| 9 | # AvantGarde-Book=AvGarBk.afm |
|---|
| 10 | # and outputs an `expanded' afmfiles.upr on STDOUT and a list of commands |
|---|
| 11 | # needed to install the fonts with "long" names on STDERR. |
|---|
| 12 | |
|---|
| 13 | s%\@AFMDIR\@%$ENV{'AFMDIR'}%g; |
|---|
| 14 | |
|---|
| 15 | if (/^([^=]*)=([^=]*\.afm)$/) { |
|---|
| 16 | print "$1=$1.afm\n"; |
|---|
| 17 | print STDERR $ENV{'INSTALL_DATA'} ." lib/$2 \$DESTDIR" . |
|---|
| 18 | $ENV{'AFMDIR'} . "/$1.afm\n"; |
|---|
| 19 | } else { |
|---|
| 20 | print; |
|---|
| 21 | } |
|---|
Note: See
TracBrowser
for help on using the repository browser.
