make helper-dep.pl part of helper.pl
This commit is contained in:
Daniel Mendler
Steffen Jaeckel
parent
712919f337
commit
26548f0f4e
169
helper-dep.pl
169
helper-dep.pl
@ -1,169 +0,0 @@
|
||||
#!/usr/bin/perl
|
||||
#
|
||||
# Walk through source, add labels and make classes
|
||||
#
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
my %deplist;
|
||||
|
||||
#open class file and write preamble
|
||||
open(my $class, '>', 'tommath_class.h') or die "Couldn't open tommath_class.h for writing\n";
|
||||
print {$class} << 'EOS';
|
||||
/* LibTomMath, multiple-precision integer library -- Tom St Denis */
|
||||
/* SPDX-License-Identifier: Unlicense */
|
||||
|
||||
#if !(defined(LTM1) && defined(LTM2) && defined(LTM3))
|
||||
#if defined(LTM2)
|
||||
# define LTM3
|
||||
#endif
|
||||
#if defined(LTM1)
|
||||
# define LTM2
|
||||
#endif
|
||||
#define LTM1
|
||||
#if defined(LTM_ALL)
|
||||
EOS
|
||||
|
||||
foreach my $filename (glob 'bn*.c') {
|
||||
my $define = $filename;
|
||||
|
||||
print "Processing $filename\n";
|
||||
|
||||
# convert filename to upper case so we can use it as a define
|
||||
$define =~ tr/[a-z]/[A-Z]/;
|
||||
$define =~ tr/\./_/;
|
||||
print {$class} << "EOS";
|
||||
# define $define
|
||||
EOS
|
||||
|
||||
# now copy text and apply #ifdef as required
|
||||
my $apply = 0;
|
||||
open(my $src, '<', $filename);
|
||||
open(my $out, '>', 'tmp');
|
||||
|
||||
# first line will be the #ifdef
|
||||
my $line = <$src>;
|
||||
if ($line =~ /include/) {
|
||||
print {$out} $line;
|
||||
} else {
|
||||
print {$out} << "EOS";
|
||||
#include "tommath_private.h"
|
||||
#ifdef $define
|
||||
/* LibTomMath, multiple-precision integer library -- Tom St Denis */
|
||||
/* SPDX-License-Identifier: Unlicense */
|
||||
$line
|
||||
EOS
|
||||
$apply = 1;
|
||||
}
|
||||
while (<$src>) {
|
||||
if (!($_ =~ /tommath\.h/)) {
|
||||
print {$out} $_;
|
||||
}
|
||||
}
|
||||
if ($apply == 1) {
|
||||
print {$out} << 'EOS';
|
||||
#endif
|
||||
EOS
|
||||
}
|
||||
close $src;
|
||||
close $out;
|
||||
|
||||
unlink $filename;
|
||||
rename 'tmp', $filename;
|
||||
}
|
||||
print {$class} << 'EOS';
|
||||
#endif
|
||||
EOS
|
||||
|
||||
# now do classes
|
||||
|
||||
foreach my $filename (glob 'bn*.c') {
|
||||
open(my $src, '<', $filename) or die "Can't open source file!\n";
|
||||
read $src, my $content, -s $src;
|
||||
close $src;
|
||||
|
||||
# convert filename to upper case so we can use it as a define
|
||||
$filename =~ tr/[a-z]/[A-Z]/;
|
||||
$filename =~ tr/\./_/;
|
||||
|
||||
print {$class} << "EOS";
|
||||
#if defined($filename)
|
||||
EOS
|
||||
my $list = $filename;
|
||||
|
||||
# strip comments
|
||||
$content =~ s{/\*.*?\*/}{}gs;
|
||||
|
||||
# scan for mp_* and make classes
|
||||
foreach my $line (split /\n/, $content) {
|
||||
while ($line =~ /(fast_)?(s_)?mp\_[a-z_0-9]*(?=\()|(?<=\()mp\_[a-z_0-9]*(?=,)/g) {
|
||||
my $a = $&;
|
||||
next if $a eq "mp_err";
|
||||
$a =~ tr/[a-z]/[A-Z]/;
|
||||
$a = 'BN_' . $a . '_C';
|
||||
if (!($list =~ /$a/)) {
|
||||
print {$class} << "EOS";
|
||||
# define $a
|
||||
EOS
|
||||
}
|
||||
$list = $list . ',' . $a;
|
||||
}
|
||||
}
|
||||
$deplist{$filename} = $list;
|
||||
|
||||
print {$class} << 'EOS';
|
||||
#endif
|
||||
|
||||
EOS
|
||||
}
|
||||
|
||||
print {$class} << 'EOS';
|
||||
#ifdef LTM3
|
||||
# define LTM_LAST
|
||||
#endif
|
||||
|
||||
#include "tommath_superclass.h"
|
||||
#include "tommath_class.h"
|
||||
#else
|
||||
# define LTM_LAST
|
||||
#endif
|
||||
EOS
|
||||
close $class;
|
||||
|
||||
#now let's make a cool call graph...
|
||||
|
||||
open(my $out, '>', 'callgraph.txt');
|
||||
my $indent = 0;
|
||||
my $list;
|
||||
foreach (sort keys %deplist) {
|
||||
$list = '';
|
||||
draw_func($deplist{$_});
|
||||
print {$out} "\n\n";
|
||||
}
|
||||
close $out;
|
||||
|
||||
sub draw_func
|
||||
{
|
||||
my @funcs = split ',', $_[0];
|
||||
# try this if you want to have a look at a minimized version of the callgraph without all the trivial functions
|
||||
#if ($list =~ /$funcs[0]/ || $funcs[0] =~ /BN_MP_(ADD|SUB|CLEAR|CLEAR_\S+|DIV|MUL|COPY|ZERO|GROW|CLAMP|INIT|INIT_\S+|SET|ABS|CMP|CMP_D|EXCH)_C/) {
|
||||
if ($list =~ /$funcs[0]/) {
|
||||
return;
|
||||
} else {
|
||||
$list = $list . $funcs[0];
|
||||
}
|
||||
if ($indent == 0) {
|
||||
} elsif ($indent >= 1) {
|
||||
print {$out} '| ' x ($indent - 1) . '+--->';
|
||||
}
|
||||
print {$out} $funcs[0] . "\n";
|
||||
shift @funcs;
|
||||
my $temp = $list;
|
||||
foreach my $i (@funcs) {
|
||||
++$indent;
|
||||
draw_func($deplist{$i}) if exists $deplist{$i};
|
||||
--$indent;
|
||||
}
|
||||
$list = $temp;
|
||||
return;
|
||||
}
|
||||
168
helper.pl
168
helper.pl
@ -275,9 +275,171 @@ sub process_makefiles {
|
||||
}
|
||||
}
|
||||
|
||||
sub update_dep {
|
||||
system("perl helper-dep.pl");
|
||||
return $? != 0;
|
||||
my %deplist;
|
||||
my $deplist;
|
||||
my $indent = 0;
|
||||
|
||||
sub draw_func
|
||||
{
|
||||
my ($out, $funcslist) = @_;
|
||||
my @funcs = split ',', $funcslist;
|
||||
# try this if you want to have a look at a minimized version of the callgraph without all the trivial functions
|
||||
#if ($deplist =~ /$funcs[0]/ || $funcs[0] =~ /BN_MP_(ADD|SUB|CLEAR|CLEAR_\S+|DIV|MUL|COPY|ZERO|GROW|CLAMP|INIT|INIT_\S+|SET|ABS|CMP|CMP_D|EXCH)_C/) {
|
||||
if ($deplist =~ /$funcs[0]/) {
|
||||
return;
|
||||
} else {
|
||||
$deplist = $deplist . $funcs[0];
|
||||
}
|
||||
if ($indent == 0) {
|
||||
} elsif ($indent >= 1) {
|
||||
print {$out} '| ' x ($indent - 1) . '+--->';
|
||||
}
|
||||
print {$out} $funcs[0] . "\n";
|
||||
shift @funcs;
|
||||
my $temp = $deplist;
|
||||
foreach my $i (@funcs) {
|
||||
++$indent;
|
||||
draw_func($out, $deplist{$i}) if exists $deplist{$i};
|
||||
--$indent;
|
||||
}
|
||||
$deplist = $temp;
|
||||
return;
|
||||
}
|
||||
|
||||
sub update_dep
|
||||
{
|
||||
#open class file and write preamble
|
||||
open(my $class, '>', 'tommath_class.h') or die "Couldn't open tommath_class.h for writing\n";
|
||||
print {$class} << 'EOS';
|
||||
/* LibTomMath, multiple-precision integer library -- Tom St Denis */
|
||||
/* SPDX-License-Identifier: Unlicense */
|
||||
|
||||
#if !(defined(LTM1) && defined(LTM2) && defined(LTM3))
|
||||
#if defined(LTM2)
|
||||
# define LTM3
|
||||
#endif
|
||||
#if defined(LTM1)
|
||||
# define LTM2
|
||||
#endif
|
||||
#define LTM1
|
||||
#if defined(LTM_ALL)
|
||||
EOS
|
||||
|
||||
foreach my $filename (glob 'bn*.c') {
|
||||
my $define = $filename;
|
||||
|
||||
print "Processing $filename\n";
|
||||
|
||||
# convert filename to upper case so we can use it as a define
|
||||
$define =~ tr/[a-z]/[A-Z]/;
|
||||
$define =~ tr/\./_/;
|
||||
print {$class} << "EOS";
|
||||
# define $define
|
||||
EOS
|
||||
|
||||
# now copy text and apply #ifdef as required
|
||||
my $apply = 0;
|
||||
open(my $src, '<', $filename);
|
||||
open(my $out, '>', 'tmp');
|
||||
|
||||
# first line will be the #ifdef
|
||||
my $line = <$src>;
|
||||
if ($line =~ /include/) {
|
||||
print {$out} $line;
|
||||
} else {
|
||||
print {$out} << "EOS";
|
||||
#include "tommath_private.h"
|
||||
#ifdef $define
|
||||
/* LibTomMath, multiple-precision integer library -- Tom St Denis */
|
||||
/* SPDX-License-Identifier: Unlicense */
|
||||
$line
|
||||
EOS
|
||||
$apply = 1;
|
||||
}
|
||||
while (<$src>) {
|
||||
if (!($_ =~ /tommath\.h/)) {
|
||||
print {$out} $_;
|
||||
}
|
||||
}
|
||||
if ($apply == 1) {
|
||||
print {$out} << 'EOS';
|
||||
#endif
|
||||
EOS
|
||||
}
|
||||
close $src;
|
||||
close $out;
|
||||
|
||||
unlink $filename;
|
||||
rename 'tmp', $filename;
|
||||
}
|
||||
print {$class} << 'EOS';
|
||||
#endif
|
||||
EOS
|
||||
|
||||
# now do classes
|
||||
|
||||
foreach my $filename (glob 'bn*.c') {
|
||||
open(my $src, '<', $filename) or die "Can't open source file!\n";
|
||||
read $src, my $content, -s $src;
|
||||
close $src;
|
||||
|
||||
# convert filename to upper case so we can use it as a define
|
||||
$filename =~ tr/[a-z]/[A-Z]/;
|
||||
$filename =~ tr/\./_/;
|
||||
|
||||
print {$class} << "EOS";
|
||||
#if defined($filename)
|
||||
EOS
|
||||
my $list = $filename;
|
||||
|
||||
# strip comments
|
||||
$content =~ s{/\*.*?\*/}{}gs;
|
||||
|
||||
# scan for mp_* and make classes
|
||||
foreach my $line (split /\n/, $content) {
|
||||
while ($line =~ /(fast_)?(s_)?mp\_[a-z_0-9]*(?=\()|(?<=\()mp\_[a-z_0-9]*(?=,)/g) {
|
||||
my $a = $&;
|
||||
next if $a eq "mp_err";
|
||||
$a =~ tr/[a-z]/[A-Z]/;
|
||||
$a = 'BN_' . $a . '_C';
|
||||
if (!($list =~ /$a/)) {
|
||||
print {$class} << "EOS";
|
||||
# define $a
|
||||
EOS
|
||||
}
|
||||
$list = $list . ',' . $a;
|
||||
}
|
||||
}
|
||||
$deplist{$filename} = $list;
|
||||
|
||||
print {$class} << 'EOS';
|
||||
#endif
|
||||
|
||||
EOS
|
||||
}
|
||||
|
||||
print {$class} << 'EOS';
|
||||
#ifdef LTM3
|
||||
# define LTM_LAST
|
||||
#endif
|
||||
|
||||
#include "tommath_superclass.h"
|
||||
#include "tommath_class.h"
|
||||
#else
|
||||
# define LTM_LAST
|
||||
#endif
|
||||
EOS
|
||||
close $class;
|
||||
|
||||
#now let's make a cool call graph...
|
||||
|
||||
open(my $out, '>', 'callgraph.txt');
|
||||
foreach (sort keys %deplist) {
|
||||
$deplist = '';
|
||||
draw_func($out, $deplist{$_});
|
||||
print {$out} "\n\n";
|
||||
}
|
||||
close $out;
|
||||
}
|
||||
|
||||
sub die_usage {
|
||||
|
||||
Loading…
Reference in New Issue
Block a user