|
282
|
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 |
|
|
16 print "Processing $filename\n"; |
|
|
17 |
|
|
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 |
