OLD | NEW |
1 #!/usr/local/bin/perl | 1 #!/usr/local/bin/perl |
2 # | 2 # |
3 # This is a hacked version of files.pl for systems that can't do a 'make files'. | 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 | 4 # Do a perl util/mkminfo.pl >MINFO to build MINFO |
5 # Written by Steve Henson 1999. | 5 # Written by Steve Henson 1999. |
6 | 6 |
7 # List of directories to process | 7 # List of directories to process |
8 | 8 |
9 my @dirs = ( | 9 my @dirs = ( |
10 ".", | 10 ".", |
11 "crypto", | 11 "crypto", |
12 "crypto/md2", | 12 "crypto/md2", |
13 "crypto/md4", | 13 "crypto/md4", |
14 "crypto/md5", | 14 "crypto/md5", |
15 "crypto/sha", | 15 "crypto/sha", |
16 "crypto/mdc2", | 16 "crypto/mdc2", |
17 "crypto/hmac", | 17 "crypto/hmac", |
18 "crypto/ripemd", | 18 "crypto/ripemd", |
19 "crypto/des", | 19 "crypto/des", |
20 "crypto/rc2", | 20 "crypto/rc2", |
21 "crypto/rc4", | 21 "crypto/rc4", |
22 "crypto/rc5", | 22 "crypto/rc5", |
23 "crypto/idea", | 23 "crypto/idea", |
24 "crypto/bf", | 24 "crypto/bf", |
25 "crypto/cast", | 25 "crypto/cast", |
26 "crypto/aes", | 26 "crypto/aes", |
27 "crypto/camellia", | 27 "crypto/camellia", |
28 "crypto/seed", | 28 "crypto/seed", |
| 29 "crypto/modes", |
29 "crypto/bn", | 30 "crypto/bn", |
30 "crypto/rsa", | 31 "crypto/rsa", |
31 "crypto/dsa", | 32 "crypto/dsa", |
32 "crypto/dso", | 33 "crypto/dso", |
33 "crypto/dh", | 34 "crypto/dh", |
34 "crypto/ec", | 35 "crypto/ec", |
35 "crypto/ecdh", | 36 "crypto/ecdh", |
36 "crypto/ecdsa", | 37 "crypto/ecdsa", |
37 "crypto/buffer", | 38 "crypto/buffer", |
38 "crypto/bio", | 39 "crypto/bio", |
39 "crypto/stack", | 40 "crypto/stack", |
40 "crypto/lhash", | 41 "crypto/lhash", |
41 "crypto/rand", | 42 "crypto/rand", |
42 "crypto/err", | 43 "crypto/err", |
43 "crypto/objects", | 44 "crypto/objects", |
44 "crypto/evp", | 45 "crypto/evp", |
45 "crypto/asn1", | 46 "crypto/asn1", |
46 "crypto/pem", | 47 "crypto/pem", |
47 "crypto/x509", | 48 "crypto/x509", |
48 "crypto/x509v3", | 49 "crypto/x509v3", |
| 50 "crypto/cms", |
49 "crypto/conf", | 51 "crypto/conf", |
50 "crypto/jpake", | 52 "crypto/jpake", |
51 "crypto/txt_db", | 53 "crypto/txt_db", |
52 "crypto/pkcs7", | 54 "crypto/pkcs7", |
53 "crypto/pkcs12", | 55 "crypto/pkcs12", |
54 "crypto/comp", | 56 "crypto/comp", |
55 "crypto/engine", | 57 "crypto/engine", |
56 "crypto/ocsp", | 58 "crypto/ocsp", |
57 "crypto/ui", | 59 "crypto/ui", |
58 "crypto/krb5", | 60 "crypto/krb5", |
59 "crypto/store", | 61 #"crypto/store", |
60 "crypto/pqueue", | 62 "crypto/pqueue", |
61 "crypto/cms", | 63 "crypto/whrlpool", |
62 "fips", | 64 "crypto/ts", |
63 "fips/aes", | |
64 "fips/des", | |
65 "fips/dsa", | |
66 "fips/dh", | |
67 "fips/hmac", | |
68 "fips/rand", | |
69 "fips/rsa", | |
70 "fips/sha", | |
71 "ssl", | 65 "ssl", |
72 "apps", | 66 "apps", |
73 "engines", | 67 "engines", |
| 68 "engines/ccgost", |
74 "test", | 69 "test", |
75 "tools" | 70 "tools" |
76 ); | 71 ); |
77 | 72 |
| 73 %top; |
| 74 |
78 foreach (@dirs) { | 75 foreach (@dirs) { |
79 &files_dir ($_, "Makefile"); | 76 &files_dir ($_, "Makefile"); |
80 } | 77 } |
81 | 78 |
82 exit(0); | 79 exit(0); |
83 | 80 |
84 sub files_dir | 81 sub files_dir |
85 { | 82 { |
86 my ($dir, $makefile) = @_; | 83 my ($dir, $makefile) = @_; |
87 | 84 |
(...skipping 23 matching lines...) Expand all Loading... |
111 else | 108 else |
112 { | 109 { |
113 $o.=$b." "; | 110 $o.=$b." "; |
114 last; | 111 last; |
115 } | 112 } |
116 } | 113 } |
117 $o =~ s/^\s+//; | 114 $o =~ s/^\s+//; |
118 $o =~ s/\s+$//; | 115 $o =~ s/\s+$//; |
119 $o =~ s/\s+/ /g; | 116 $o =~ s/\s+/ /g; |
120 | 117 |
121 » » $o =~ s/\$[({]([^)}]+)[)}]/$sym{$1}/g; | 118 » » $o =~ s/\$[({]([^)}]+)[)}]/$top{$1} or $sym{$1}/ge; |
122 » » $sym{$s}=$o; | 119 » » $sym{$s}=($top{$s} or $o); |
123 } | 120 } |
124 } | 121 } |
125 | 122 |
126 print "RELATIVE_DIRECTORY=$dir\n"; | 123 print "RELATIVE_DIRECTORY=$dir\n"; |
127 | 124 |
128 foreach (sort keys %sym) | 125 foreach (sort keys %sym) |
129 { | 126 { |
130 print "$_=$sym{$_}\n"; | 127 print "$_=$sym{$_}\n"; |
131 } | 128 } |
| 129 if ($dir eq "." && defined($sym{"BUILDENV"})) |
| 130 { |
| 131 foreach (split(' ',$sym{"BUILDENV"})) |
| 132 { |
| 133 /^(.+)=/; |
| 134 $top{$1}=$sym{$1}; |
| 135 } |
| 136 } |
| 137 |
132 print "RELATIVE_DIRECTORY=\n"; | 138 print "RELATIVE_DIRECTORY=\n"; |
133 | 139 |
134 close (IN); | 140 close (IN); |
135 } | 141 } |
OLD | NEW |