Maybe someone should write a script like this:

   #!/usr/local/bin/perl -wlpi.bak
   s/
      (\$?\w+) \s* -> \s* vtable \s* -> \s* (\w+) \s*
      \( \s* (interp\w*) \s* , \s* \1 \s*,
   /VTABLE_$2($3, $1,/xg;
   __END__

[untested]

Then run it on all the code, except that which actually defines the
VTABLE_ macros.

-- 
$a=24;split//,240513;s/\B/ => /for@@=qw(ac ab bc ba cb ca
);{push(@b,$a),($a-=6)^=1 for 2..$a/6x--$|;print "[EMAIL PROTECTED]
]\n";((6<=($a-=6))?$a+=$_[$a%6]-$a%6:($a=pop @b))&&redo;}

Reply via email to