c3-lang/libtommath/dep.pl

• Show log

  Commit

• Hash : 3289c959
  Author :
  Date : 2019-05-20T10:41:06
  

  introduce various mp_set_sint/mp_set_uint functions with precise types

Download

• dep.pl

• #!/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;
  }
  

Download