Mercurial > dropbear

comparison dep.pl @ 282:91fbc376f010 libtommath-orig libtommath-0.35

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import of libtommath 0.35 From ltm-0.35.tar.bz2 SHA1 of 3f193dbae9351e92d02530994fa18236f7fde01c
author Matt Johnston <matt@ucc.asn.au>
date Wed, 08 Mar 2006 13:16:18 +0000
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 282:91fbc376f010
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