diff options
Diffstat (limited to 'src/lib/libcrypto/util/mkfiles.pl')
| -rw-r--r-- | src/lib/libcrypto/util/mkfiles.pl | 142 |
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 | |||
| 9 | my @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 | |||
| 76 | foreach (@dirs) { | ||
| 77 | &files_dir ($_, "Makefile"); | ||
| 78 | } | ||
| 79 | |||
| 80 | exit(0); | ||
| 81 | |||
| 82 | sub files_dir | ||
| 83 | { | ||
| 84 | my ($dir, $makefile) = @_; | ||
| 85 | |||
| 86 | my %sym; | ||
| 87 | |||
| 88 | open (IN, "$dir/$makefile") || die "Can't open $dir/$makefile"; | ||
| 89 | |||
| 90 | my $s=""; | ||
| 91 | |||
| 92 | while (<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 | |||
| 124 | print "RELATIVE_DIRECTORY=$dir\n"; | ||
| 125 | |||
| 126 | foreach (sort keys %sym) | ||
| 127 | { | ||
| 128 | print "$_=$sym{$_}\n"; | ||
| 129 | } | ||
| 130 | if ($dir eq "." && defined($sym{"BUILDENV"})) | ||
| 131 | { | ||
| 132 | foreach (split(' ',$sym{"BUILDENV"})) | ||
| 133 | { | ||
| 134 | /^(.+)=/; | ||
| 135 | $top{$1}=$sym{$1}; | ||
| 136 | } | ||
| 137 | } | ||
| 138 | |||
| 139 | print "RELATIVE_DIRECTORY=\n"; | ||
| 140 | |||
| 141 | close (IN); | ||
| 142 | } | ||
