2 foreach $e (qw(M=moveto
11 s/^([A-Z])\=// or die;
14 $defs.= "/$letter { $_ } bind def\n";
15 $func.= "s/\\s$_\\s/\\n$letter\\n/g;\n";
17 eval "sub s { $func }; 1;" or die $@;
22 print $defs or die $!;
26 s/\s(\d{3,}\.\d{0,3})\d*\s+(\d{3,}\.\d{0,3})\d*\s+(moveto|lineto)\s/
27 "\n$1 $2 ".uc(substr($3,0,1))."\n"