[fptex] updmap.pl on Win32

[Fabrice Popineau]

> 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