niceSOFT/mpfr | Gitverse

tools/repl-variadic

30 строк866 B

Vincent Lefèvre

Added tools/repl-variadic Perl script to replace the variadic functions

12 дек 2013, 16:18

12 дек 2013, 16:18c5c3135

#!/usr/bin/env perl

# Replace the variadic functions mpfr_clears, mpfr_inits and mpfr_inits2,
# in case they are not supported by the compiler.
#
# Example of usage: perl -i tools/repl-variadic {src,tests}/*.{c,h}

use strict;

while (<>)
  {
    while (/\bmpfr_(clears|inits2?).*, *$/)
      { chomp; $_ .= <>; }
    my ($beg,$fct,$vars,$end) =
      /^(.*?) *\bmpfr_(clears|inits2?) *\((.*?), *\(mpfr_ptr\) *0\)(.*?)$/
        or print, next;
    print "$beg\n" if $beg ne '';
    my @vars = split /, */, $vars;
    $fct =~ tr/s//d;
    print "/* !!! Replaced with repl-variadic !!! */ do {\n";
    my $prec = '';
    if ($fct eq 'init2')
      {
        print "  mpfr_prec_t _repl_prec = (", shift(@vars), ");\n";
        $prec = ", _repl_prec";
      }
    foreach my $var (@vars)
      { print "  mpfr_$fct ($var$prec);\n" }
    print "} while (0)$end\n";
  }