Mercurial > dropbear

comparison libtommath/dep.pl @ 293:9d110777f345 contrib-blacklist

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
propagate from branch 'au.asn.ucc.matt.dropbear' (head 7ad1775ed65e75dbece27fe6b65bf1a234db386a) to branch 'au.asn.ucc.matt.dropbear.contrib.blacklist' (head 1d86a4f0a401cc68c2670d821a2f6366c37af143)
author Matt Johnston <matt@ucc.asn.au>
date Fri, 10 Mar 2006 06:31:29 +0000
parents eed26cff980b
children 60fc6476e044
comparison
equal deleted inserted replaced
247:c07de41b53d7 293:9d110777f345
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