Mercurial > dropbear
annotate dep.pl @ 190:d8254fc979e9 libtommath-orig LTM_0.35
Initial import of libtommath 0.35
| author | Matt Johnston <matt@ucc.asn.au> |
|---|---|
| date | Fri, 06 May 2005 08:59:30 +0000 |
| parents | d29b64170cf0 |
| children |
| rev | line source |
|---|---|
| 142 | 1 #!/usr/bin/perl |
| 2 # | |
| 3 # Walk through source, add labels and make classes | |
| 4 # | |
| 5 #use strict; | |
| 6 | |
| 7 my %deplist; | |
| 8 | |
| 9 #open class file and write preamble | |
| 10 open(CLASS, ">tommath_class.h") or die "Couldn't open tommath_class.h for writing\n"; | |
| 11 print CLASS "#if !(defined(LTM1) && defined(LTM2) && defined(LTM3))\n#if defined(LTM2)\n#define LTM3\n#endif\n#if defined(LTM1)\n#define LTM2\n#endif\n#define LTM1\n\n#if defined(LTM_ALL)\n"; | |
| 12 | |
| 13 foreach my $filename (glob "bn*.c") { | |
| 14 my $define = $filename; | |
| 15 | |
|
190
d8254fc979e9
Initial import of libtommath 0.35
Matt Johnston <matt@ucc.asn.au>
parents:
142
diff
changeset
|
16 print "Processing $filename\n"; |
|
d8254fc979e9
Initial import of libtommath 0.35
Matt Johnston <matt@ucc.asn.au>
parents:
142
diff
changeset
|
17 |
| 142 | 18 # convert filename to upper case so we can use it as a define |
| 19 $define =~ tr/[a-z]/[A-Z]/; | |
| 20 $define =~ tr/\./_/; | |
| 21 print CLASS "#define $define\n"; | |
| 22 | |
| 23 # now copy text and apply #ifdef as required | |
| 24 my $apply = 0; | |
| 25 open(SRC, "<$filename"); | |
| 26 open(OUT, ">tmp"); | |
| 27 | |
| 28 # first line will be the #ifdef | |
| 29 my $line = <SRC>; | |
| 30 if ($line =~ /include/) { | |
| 31 print OUT $line; | |
| 32 } else { | |
| 33 print OUT "#include <tommath.h>\n#ifdef $define\n$line"; | |
| 34 $apply = 1; | |
| 35 } | |
| 36 while (<SRC>) { | |
| 37 if (!($_ =~ /tommath\.h/)) { | |
| 38 print OUT $_; | |
| 39 } | |
| 40 } | |
| 41 if ($apply == 1) { | |
| 42 print OUT "#endif\n"; | |
| 43 } | |
| 44 close SRC; | |
| 45 close OUT; | |
| 46 | |
| 47 unlink($filename); | |
| 48 rename("tmp", $filename); | |
| 49 } | |
| 50 print CLASS "#endif\n\n"; | |
| 51 | |
| 52 # now do classes | |
| 53 | |
| 54 foreach my $filename (glob "bn*.c") { | |
| 55 open(SRC, "<$filename") or die "Can't open source file!\n"; | |
| 56 | |
| 57 # convert filename to upper case so we can use it as a define | |
| 58 $filename =~ tr/[a-z]/[A-Z]/; | |
| 59 $filename =~ tr/\./_/; | |
| 60 | |
| 61 print CLASS "#if defined($filename)\n"; | |
| 62 my $list = $filename; | |
| 63 | |
| 64 # scan for mp_* and make classes | |
| 65 while (<SRC>) { | |
| 66 my $line = $_; | |
| 67 while ($line =~ m/(fast_)*(s_)*mp\_[a-z_0-9]*/) { | |
| 68 $line = $'; | |
| 69 # now $& is the match, we want to skip over LTM keywords like | |
| 70 # mp_int, mp_word, mp_digit | |
| 71 if (!($& eq "mp_digit") && !($& eq "mp_word") && !($& eq "mp_int")) { | |
| 72 my $a = $&; | |
| 73 $a =~ tr/[a-z]/[A-Z]/; | |
| 74 $a = "BN_" . $a . "_C"; | |
| 75 if (!($list =~ /$a/)) { | |
| 76 print CLASS " #define $a\n"; | |
| 77 } | |
| 78 $list = $list . "," . $a; | |
| 79 } | |
| 80 } | |
| 81 } | |
| 82 @deplist{$filename} = $list; | |
| 83 | |
| 84 print CLASS "#endif\n\n"; | |
| 85 close SRC; | |
| 86 } | |
| 87 | |
| 88 print CLASS "#ifdef LTM3\n#define LTM_LAST\n#endif\n#include <tommath_superclass.h>\n#include <tommath_class.h>\n#else\n#define LTM_LAST\n#endif\n"; | |
| 89 close CLASS; | |
| 90 | |
| 91 #now let's make a cool call graph... | |
| 92 | |
| 93 open(OUT,">callgraph.txt"); | |
| 94 $indent = 0; | |
| 95 foreach (keys %deplist) { | |
| 96 $list = ""; | |
| 97 draw_func(@deplist{$_}); | |
| 98 print OUT "\n\n"; | |
| 99 } | |
| 100 close(OUT); | |
| 101 | |
| 102 sub draw_func() | |
| 103 { | |
| 104 my @funcs = split(",", $_[0]); | |
| 105 if ($list =~ /@funcs[0]/) { | |
| 106 return; | |
| 107 } else { | |
| 108 $list = $list . @funcs[0]; | |
| 109 } | |
| 110 if ($indent == 0) { } | |
| 111 elsif ($indent >= 1) { print OUT "| " x ($indent - 1) . "+--->"; } | |
| 112 print OUT @funcs[0] . "\n"; | |
| 113 shift @funcs; | |
| 114 my $temp = $list; | |
| 115 foreach my $i (@funcs) { | |
| 116 ++$indent; | |
| 117 draw_func(@deplist{$i}); | |
| 118 --$indent; | |
| 119 } | |
| 120 $list = $temp; | |
| 121 } | |
| 122 | |
| 123 |