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/ripemd",
19"crypto/des",
20"crypto/rc2",
21"crypto/rc4",
22"crypto/rc5",
23"crypto/idea",
24"crypto/bf",
25"crypto/cast",
26"crypto/aes",
27"crypto/camellia",
28"crypto/bn",
29"crypto/rsa",
30"crypto/dsa",
31"crypto/dso",
32"crypto/dh",
33"crypto/ec",
34"crypto/ecdh",
35"crypto/ecdsa",
36"crypto/buffer",
37"crypto/bio",
38"crypto/stack",
39"crypto/lhash",
40"crypto/rand",
41"crypto/err",
42"crypto/objects",
43"crypto/evp",
44"crypto/asn1",
45"crypto/pem",
46"crypto/x509",
47"crypto/x509v3",
48"crypto/conf",
49"crypto/txt_db",
50"crypto/pkcs7",
51"crypto/pkcs12",
52"crypto/comp",
53"crypto/engine",
54"crypto/ocsp",
55"crypto/ui",
56"crypto/krb5",
57"crypto/store",
58"crypto/pqueue",
59"ssl",
60"apps",
61"engines",
62"test",
63"tools"
64);
65
66foreach (@dirs) {
67	&files_dir ($_, "Makefile");
68}
69
70exit(0);
71
72sub files_dir
73{
74my ($dir, $makefile) = @_;
75
76my %sym;
77
78open (IN, "$dir/$makefile") || die "Can't open $dir/$makefile";
79
80my $s="";
81
82while (<IN>)
83	{
84	chop;
85	s/#.*//;
86	if (/^(\S+)\s*=\s*(.*)$/)
87		{
88		$o="";
89		($s,$b)=($1,$2);
90		for (;;)
91			{
92			if ($b =~ /\\$/)
93				{
94				chop($b);
95				$o.=$b." ";
96				$b=<IN>;
97				chop($b);
98				}
99			else
100				{
101				$o.=$b." ";
102				last;
103				}
104			}
105		$o =~ s/^\s+//;
106		$o =~ s/\s+$//;
107		$o =~ s/\s+/ /g;
108
109		$o =~ s/\$[({]([^)}]+)[)}]/$sym{$1}/g;
110		$sym{$s}=$o;
111		}
112	}
113
114print "RELATIVE_DIRECTORY=$dir\n";
115
116foreach (sort keys %sym)
117	{
118	print "$_=$sym{$_}\n";
119	}
120print "RELATIVE_DIRECTORY=\n";
121
122close (IN);
123}
124