| 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 |