/
githubmirror
/
mpfr
Обзор
Документация
Войти
/
githubmirror
/
mpfr
Код
Запросы
0
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
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:18
c5c3135
Код
Авторство
О чём код?
#!/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"; }