summaryrefslogtreecommitdiff
path: root/src/lib/libcrypto/util/mkfiles.pl
diff options
context:
space:
mode:
Diffstat (limited to 'src/lib/libcrypto/util/mkfiles.pl')
-rw-r--r--src/lib/libcrypto/util/mkfiles.pl142
1 files changed, 0 insertions, 142 deletions
diff --git a/src/lib/libcrypto/util/mkfiles.pl b/src/lib/libcrypto/util/mkfiles.pl
deleted file mode 100644
index 3214f69ea5..0000000000
--- a/src/lib/libcrypto/util/mkfiles.pl
+++ /dev/null
@@ -1,142 +0,0 @@
1#!/usr/local/bin/perl
2#
3# This is a hacked version of files.pl for systems that can't do a 'make files'.
4# Do a perl util/mkminfo.pl >MINFO to build MINFO
5# Written by Steve Henson 1999.
6
7# List of directories to process
8
9my @dirs = (
10".",
11"crypto",
12"crypto/md2",
13"crypto/md4",
14"crypto/md5",
15"crypto/sha",
16"crypto/mdc2",
17"crypto/hmac",
18"crypto/cmac",
19"crypto/ripemd",
20"crypto/des",
21"crypto/rc2",
22"crypto/rc4",
23"crypto/rc5",
24"crypto/idea",
25"crypto/bf",
26"crypto/cast",
27"crypto/aes",
28"crypto/camellia",
29"crypto/seed",
30"crypto/modes",
31"crypto/bn",
32"crypto/rsa",
33"crypto/dsa",
34"crypto/dso",
35"crypto/dh",
36"crypto/ec",
37"crypto/ecdh",
38"crypto/ecdsa",
39"crypto/buffer",
40"crypto/bio",
41"crypto/stack",
42"crypto/lhash",
43"crypto/rand",
44"crypto/err",
45"crypto/objects",
46"crypto/evp",
47"crypto/asn1",
48"crypto/pem",
49"crypto/x509",
50"crypto/x509v3",
51"crypto/cms",
52"crypto/conf",
53"crypto/jpake",
54"crypto/txt_db",
55"crypto/pkcs7",
56"crypto/pkcs12",
57"crypto/comp",
58"crypto/engine",
59"crypto/ocsp",
60"crypto/ui",
61"crypto/krb5",
62#"crypto/store",
63"crypto/pqueue",
64"crypto/whrlpool",
65"crypto/ts",
66"crypto/srp",
67"ssl",
68"apps",
69"engines",
70"test",
71"tools"
72);
73
74%top;
75
76foreach (@dirs) {
77 &files_dir ($_, "Makefile");
78}
79
80exit(0);
81
82sub files_dir
83{
84my ($dir, $makefile) = @_;
85
86my %sym;
87
88open (IN, "$dir/$makefile") || die "Can't open $dir/$makefile";
89
90my $s="";
91
92while (<IN>)
93 {
94 chop;
95 s/#.*//;
96 if (/^(\S+)\s*=\s*(.*)$/)
97 {
98 $o="";
99 ($s,$b)=($1,$2);
100 for (;;)
101 {
102 if ($b =~ /\\$/)
103 {
104 chop($b);
105 $o.=$b." ";
106 $b=<IN>;
107 chop($b);
108 }
109 else
110 {
111 $o.=$b." ";
112 last;
113 }
114 }
115 $o =~ s/^\s+//;
116 $o =~ s/\s+$//;
117 $o =~ s/\s+/ /g;
118
119 $o =~ s/\$[({]([^)}]+)[)}]/$top{$1} or $sym{$1}/ge;
120 $sym{$s}=($top{$s} or $o);
121 }
122 }
123
124print "RELATIVE_DIRECTORY=$dir\n";
125
126foreach (sort keys %sym)
127 {
128 print "$_=$sym{$_}\n";
129 }
130if ($dir eq "." && defined($sym{"BUILDENV"}))
131 {
132 foreach (split(' ',$sym{"BUILDENV"}))
133 {
134 /^(.+)=/;
135 $top{$1}=$sym{$1};
136 }
137 }
138
139print "RELATIVE_DIRECTORY=\n";
140
141close (IN);
142}