[fptex] updmap.pl on Win32
Fabrice Popineau
Fabrice.Popineau at supelec.fr
Thu Jan 8 01:42:36 CET 2004
> The "current" version of fpTeX did not generate the appropriate
> "dvipdfm*.map" files at least for me. The numbers for "ExtendFont" and
> "SlatFont" were always ignored. (I'm using ActiveState ActivePerl
> 5.8.)
> The following lines 876 and 877 in "updmap.pl" are correct?
>> $_ =~ s@(.* ([.0-9-][.0-9-]*) *ExtendFont.*)@\1 -e \2 at x; $_ =~ s@(.*
>> ([.0-9-][.0-9-]*) *SlantFont.*)@\1 -s \2 at x;
> Instead, the two lines modified as follows worked in my case.
>> $_ =~ s/(.* ([.0-9-][.0-9-]*) *ExtendFont.*)/\1 -e \2/; $_ =~ s/(.*
>> ([.0-9-][.0-9-]*) *SlantFont.*)/\1 -s \2/;
Seems like the 'x' option at the end of the lines are a problem here.
> Of course, I am not able to read perl source code.
Perl is write-only language :-)
Sorry for this one. I thought the 'x' option was harmless and needed to
match meta-chars like \s (space class). Anyway try the following patch
please:
--- ./updmap.pl~ Thu Jan 08 01:35:45 2004
+++ ./updmap.pl Fri Dec 19 09:51:49 2003
@@ -868,13 +868,13 @@
map {
$_ =~ s@$@ %@;
- $_ =~ s@^(([^ ]*).*)@\1\2 at x;
- $_ =~ s@(.*<\[*\s*([^ ]*)\.enc(.*))@\1 \2 at x;
+ $_ =~ s@^(([^ ]*).*)@\1\2@;
+ $_ =~ s@(.*<\[* *([^ ]*)\.enc(.*))@\1 \2@;
$_ = (m/%[^ ]*$/x ? "$_ default" : $_) ;
- $_ =~ s@(.*<<*\s*([^ ]*)\.pf[ab].*)@\1 \2 at x;
+ $_ =~ s@(.*<<* *([^ ]*)\.pf[ab].*)@\1 \2@;
if (m/%[^ ]* [^ ]*$/x) { $_ =~ s@( ([^ ]*).*)$@\1 \2@; }
- $_ =~ s@(.* ([.0-9-][.0-9-]*) *ExtendFont.*)@\1 -e \2 at x;
- $_ =~ s@(.* ([.0-9-][.0-9-]*) *SlantFont.*)@\1 -s \2 at x;
+ $_ =~ s@(.* ([\.0-9-][\.0-9-]*) *ExtendFont.*)@\1 -e \2@;
+ $_ =~ s@(.* ([\.0-9-][\.0-9-]*) *SlantFont.*)@\1 -s \2@;
$_ =~ s at .*%@@ ;
} @lines;
and let me know if it works better.
Best regards,
Fabrice
More information about the fptex
mailing list