kc3-lang/libtommath

diff --git a/dep.pl b/dep.pl
deleted file mode 100755
index ceef32d..0000000
--- a/dep.pl
+++ /dev/null
@@ -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;
-}
diff --git a/helper-dep.pl b/helper-dep.pl
new file mode 100644
index 0000000..ceef32d
--- /dev/null
+++ b/helper-dep.pl
@@ -0,0 +1,169 @@
+#!/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;
+}
diff --git a/helper.pl b/helper.pl
index 4aac574..9543598 100755
--- a/helper.pl
+++ b/helper.pl
@@ -275,6 +275,11 @@ sub process_makefiles {
   }
 }
 
+sub update_dep {
+    system("perl helper-dep.pl");
+    return $? != 0;
+}
+
 sub die_usage {
   die <<"MARKER";
 usage: $0 -s   OR   $0 --check-source
@@ -300,6 +305,7 @@ $failure ||= check_comments()     if $check_all || $check_comments;
 $failure ||= check_doc()          if $check_doc; # temporarily excluded from --check-all
 $failure ||= process_makefiles(0) if $check_all || $check_makefiles;
 $failure ||= process_makefiles(1) if $update_makefiles;
+$failure ||= update_dep()         if $update_makefiles;
 
 die_usage unless defined $failure;
 exit $failure ? 1 : 0;
diff --git a/makefile b/makefile
index 4f40991..74c557c 100644
--- a/makefile
+++ b/makefile
@@ -149,8 +149,7 @@ zipup: clean astyle new_file manual poster docs
 	gpg -b -a ltm-$(VERSION).zip
 
 new_file:
-	perl helper.pl --update-makefiles || exit 1
-	perl dep.pl
+	perl helper.pl --update-makefiles
 
 perlcritic:
 	perlcritic *.pl doc/*.pl
diff --git a/testme.sh b/testme.sh
index f34d96f..0e035ce 100755
--- a/testme.sh
+++ b/testme.sh
@@ -295,9 +295,10 @@ if [[ "$CHECK_FORMAT" == "1" ]]
 then
   make astyle
   _check_git "make astyle"
-  make new_file
-  _check_git "make format"
-  perl helper.pl -a
+  perl helper.pl --update-makefiles
+  _check_git "helper.pl --update-makefiles"
+  perl helper.pl --check-all
+  _check_git "helper.pl --check-all"
   exit $?
 fi