dist/util/mkdef.pl

436 		my %tag = (
453 		# %tag and %variant...
464 						map { $tag{$_} == 1 ? $_ : "" }
471 						map { $tag{$_} == 1 ? $_ : "" }
476 					map { $tag{"OPENSSL_SYS_".$_} == 1 ? $_ : "" }
504 				undef @tag;
539 				push(@tag,"-");
540 				push(@tag,$1);
541 				$tag{$1}=-1;
542 				print STDERR "DEBUG: $file: found tag $1 = -1\n" if $debug;
544 				push(@tag,"-");
550 						print STDERR "DEBUG: $file: found tag $1 = -1\n" if $debug;
551 						push(@tag,$1);
552 						$tag{$1}=-1;
556 					print STDERR "DEBUG: $file: found tag $1 = -1\n" if $debug;
557 					push(@tag,$1);
558 					$tag{$1}=-1;
561 				push(@tag,"-");
562 				push(@tag,$1);
563 				$tag{$1}=1;
564 				print STDERR "DEBUG: $file: found tag $1 = 1\n" if $debug;
566 				push(@tag,"-");
572 						print STDERR "DEBUG: $file: found tag $1 = 1\n" if $debug;
573 						push(@tag,$1);
574 						$tag{$1}=1;
578 					print STDERR "DEBUG: $file: found tag $1 = 1\n" if $debug;
579 					push(@tag,$1);
580 					$tag{$1}=1;
583 				my $tag_i = $#tag;
584 				while($tag[$tag_i] ne "-") {
585 					if ($tag[$tag_i] eq "OPENSSL_NO_".$1) {
586 						$tag{$tag[$tag_i]}=2;
587 						print STDERR "DEBUG: $file: chaged tag $1 = 2\n" if $debug;
592 				my $tag_i = $#tag;
593 				while($tag_i > 0 && $tag[$tag_i] ne "-") {
594 					my $t=$tag[$tag_i];
596 					if ($tag{$t}==2) {
597 						$tag{$t}=-1;
599 						$tag{$t}=0;
601 					print STDERR "DEBUG: $file: changed tag ",$t," = ",$tag{$t},"\n" if $debug;
602 					pop(@tag);
615 				pop(@tag);
617 				my $tag_i = $#tag;
618 				while($tag[$tag_i] ne "-") {
619 					my $t=$tag[$tag_i];
620 					$tag{$t}= -$tag{$t};
621 					print STDERR "DEBUG: $file: changed tag ",$t," = ",$tag{$t},"\n" if $debug;
625 				push(@tag,"-");
626 				# Dummy tag
627 				push(@tag,"TRUE");
628 				$tag{"TRUE"}=1;
631 				push(@tag,"-");
632 				# Dummy tag
633 				push(@tag,"TRUE");
634 				$tag{"TRUE"}=-1;
637 				 && $symhacking && $tag{'TRUE'} != -1) {
646 					 map { $tag{$_} == 1 ? $_ :
647 						   $tag{$_} == -1 ? "!".$_  : "" }
651 					   map { $tag{"OPENSSL_SYS_".$_} == 1 ? $_ :
652 						     $tag{"OPENSSL_SYS_".$_} == -1 ? "!".$_  : "" }
656 					 map { $tag{"OPENSSL_NO_".$_} == -1 ? $_ : "" }
664 			if ($tag{'TRUE'} != -1) {
887 				} elsif ($tag{'CONST_STRICT'} != 1) {