openssl/util/mkdef.pl

33 #	existence:platform:kind:algorithms
38 #   comma-separated list of the platform, just as they are if the symbol exists
260 # If no platform is given, assume WIN32
428 	my %platform;		# For anything undefined, we assume ""
973 			$platform{$s} =
974 			    &reduce_platforms((defined($platform{$s})?$platform{$s}.',':"").$p);
985 					$platform{$r} = &reduce_platforms($platform{$s}.",".$p.",".$p);
986 					$platform{$s} = &reduce_platforms($platform{$s}.','.$ip.','.$ip);
987 					print STDERR "DEBUG: \$variant{\"$s\"} = ",$v,"; \$r = $r; \$p = ",$platform{$r},"; \$a = ",$algorithm{$r},"; \$kind = ",$kind{$r},"\n" if $debug;
990 			print STDERR "DEBUG: \$s = $s; \$p = ",$platform{$s},"; \$a = ",$algorithm{$s},"; \$kind = ",$kind{$s},"\n" if $debug;
997 	$platform{"BIO_s_log"} .= ",!WIN32,!WIN16,!macintosh";
999 	$platform{"PEM_read_NS_CERT_SEQ"} = "VMS";
1000 	$platform{"PEM_write_NS_CERT_SEQ"} = "VMS";
1001 	$platform{"PEM_read_P8_PRIV_KEY_INFO"} = "VMS";
1002 	$platform{"PEM_write_P8_PRIV_KEY_INFO"} = "VMS";
1003 	$platform{"EVP_sha384"} = "!VMSVAX";
1004 	$platform{"EVP_sha512"} = "!VMSVAX";
1005 	$platform{"SHA384_Init"} = "!VMSVAX";
1006 	$platform{"SHA384_Transform"} = "!VMSVAX";
1007 	$platform{"SHA384_Update"} = "!VMSVAX";
1008 	$platform{"SHA384_Final"} = "!VMSVAX";
1009 	$platform{"SHA384"} = "!VMSVAX";
1010 	$platform{"SHA512_Init"} = "!VMSVAX";
1011 	$platform{"SHA512_Transform"} = "!VMSVAX";
1012 	$platform{"SHA512_Update"} = "!VMSVAX";
1013 	$platform{"SHA512_Final"} = "!VMSVAX";
1014 	$platform{"SHA512"} = "!VMSVAX";
1015 	$platform{"WHIRLPOOL_Init"} = "!VMSVAX";
1016 	$platform{"WHIRLPOOL"} = "!VMSVAX";
1017 	$platform{"WHIRLPOOL_BitUpdate"} = "!VMSVAX";
1018 	$platform{"EVP_whirlpool"} = "!VMSVAX";
1019 	$platform{"WHIRLPOOL_Final"} = "!VMSVAX";
1020 	$platform{"WHIRLPOOL_Update"} = "!VMSVAX";
1026 					      $platform{$_},
1037 # Param: string of comma-separated platform-specs.
1056 	foreach $platform (split /,/, $pl) {
1057 		if ($platform =~ /^!(.*)$/) {
1060 			$p{$platform}++;
1063 	foreach $platform (keys %p) {
1064 		if ($p{$platform} == 0) { delete $p{$platform}; }