diff options
author | Taco Hoekwater <taco@elvenkind.com> | 2006-12-01 10:42:41 +0000 |
---|---|---|
committer | Taco Hoekwater <taco@elvenkind.com> | 2006-12-01 10:42:41 +0000 |
commit | 93211732ba767f3d2be8e4b948553a42791302c8 (patch) | |
tree | ca5509bc7a7e9aa8e310dc5278a3c7c9bdbad7dc /Master/texmf-dist/scripts/context/perl/texfont.pl | |
parent | c407afe4a4284ab98479d51d2553287055f0ce1c (diff) |
context release 2006.11.29
git-svn-id: svn://tug.org/texlive/trunk@2572 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts/context/perl/texfont.pl')
-rw-r--r-- | Master/texmf-dist/scripts/context/perl/texfont.pl | 22 |
1 files changed, 13 insertions, 9 deletions
diff --git a/Master/texmf-dist/scripts/context/perl/texfont.pl b/Master/texmf-dist/scripts/context/perl/texfont.pl index ec875e5b472..e6ebf7029da 100644 --- a/Master/texmf-dist/scripts/context/perl/texfont.pl +++ b/Master/texmf-dist/scripts/context/perl/texfont.pl @@ -137,6 +137,7 @@ my $slant = "" ; my $spaced = "" ; my $caps = "" ; my $noligs = 0 ; +my $nofligs = 0 ; my $test = 0 ; my $virtual = 0 ; my $novirtual = 0 ; @@ -175,6 +176,7 @@ my @cleanup = () ; # atl: build list of generated files to delete ( "help" => \$help, "makepath" => \$makepath, "noligs" => \$noligs, + "nofligs" => \$nofligs, "show" => \$show, "install" => \$install, "encoding=s" => \$encoding, @@ -357,7 +359,7 @@ if ($help) report "--slant=s : slant glyphs in font by factor (0.0 - 1.5)" ; report "--extend=s : extend glyphs in font by factor (0.0 - 1.5)" ; report "--caps=s : capitalize lowercase chars by factor (0.5 - 1.0)" ; - report "--noligs : remove ligatures" ; + report "--noligs --nofligs : remove ligatures" ; print "\n" ; report "--install : copy files from source to font tree" ; report "--listing : list files on auto sourcepath" ; @@ -436,7 +438,7 @@ my $outlinepath = $sourcepath ; my $path = "" ; my $shape = "" ; -if ($noligs) +if ($noligs||$nofligs) { report ("ligatures : removed") ; $fontsuffix .= "-unligatured" ; $namesuffix .= "-NoLigs" } @@ -1170,9 +1172,9 @@ foreach my $file (@files) if ($afmpl) { report " generating pl : $cleanname$fontsuffix (from $cleanname)" ; $encstr = " -p $encfil" ; -if ($uselmencodings) { - $encstr =~ s/(ec)\.enc$/lm\-$1\.enc/ ; -} + if ($uselmencodings) { + $encstr =~ s/(ec)\.enc$/lm\-$1\.enc/ ; + } my $command = "afm2pl -f afm2tfm $shape $passon $encstr $file $cleanname$fontsuffix.vpl" ; print "$command\n" if $trace ; my $ok = `$command` ; @@ -1191,19 +1193,21 @@ if ($uselmencodings) { if ($font =~ /.*?([\d\.]+)\s*SlantFont/io) { $slant = $1 } if ($extend ne "") { $option .= " $extend ExtendFont " } if ($slant ne "") { $option .= " $slant SlantFont " } - if ($noligs) { removeligatures("$raw$cleanname$fontsuffix") } if ($afmpl) - { report "generating new tfm : $use$cleanname$fontsuffix" ; + { if ($noligs||$nofligs) { removeligatures("$cleanname$fontsuffix") } + report "generating new tfm : $use$cleanname$fontsuffix" ; my $command = "pltotf $cleanname$fontsuffix.vpl $use$cleanname$fontsuffix.tfm" ; print "$command\n" if $trace ; my $ok = `$command` } elsif ($virtual) - { report "generating new vf : $use$cleanname$fontsuffix (from $use$cleanname)" ; + { if ($noligs||$nofligs) { removeligatures("$use$cleanname$fontsuffix") } + report "generating new vf : $use$cleanname$fontsuffix (from $use$cleanname)" ; my $command = "vptovf $use$cleanname$fontsuffix.vpl $use$cleanname$fontsuffix.vf $use$cleanname$fontsuffix.tfm" ; print "$command\n" if $trace ; my $ok = `$command` } else - { report "generating new tfm : $use$cleanname$fontsuffix (from $raw$cleanname)" ; + { if ($noligs||$nofligs) { removeligatures("$raw$cleanname$fontsuffix") } + report "generating new tfm : $use$cleanname$fontsuffix (from $raw$cleanname)" ; my $command = "pltotf $raw$cleanname$fontsuffix.vpl $use$cleanname$fontsuffix.tfm" ; print "$command\n" if $trace ; my $ok = `$command` } } } |