mirror of https://github.com/openssl/openssl.git
params: remove obsolete functionality from param generator script
With the move to structure based parameter decoding, some of the support functions are now unnecessary and are removed. Reviewed-by: Shane Lontis <shane.lontis@oracle.com> Reviewed-by: Richard Levitte <levitte@openssl.org> (Merged from https://github.com/openssl/openssl/pull/27847)
This commit is contained in:
Pauli
parent
b0dcb391d2
commit
f50e9ef510
|
|
@ -14,7 +14,6 @@ use warnings;
|
|||
require Exporter;
|
||||
our @ISA = qw(Exporter);
|
||||
our @EXPORT_OK = qw(generate_public_macros
|
||||
generate_internal_macros
|
||||
produce_param_decoder);
|
||||
|
||||
my $case_sensitive = 1;
|
||||
|
|
@ -645,36 +644,53 @@ sub generate_public_macros {
|
|||
return join("\n", sort @macros);
|
||||
}
|
||||
|
||||
# Generate number based macros for internal use
|
||||
# The numbers are unique per string
|
||||
sub generate_internal_macros {
|
||||
my @macros = ();
|
||||
my $count = 0;
|
||||
my %reverse;
|
||||
sub generate_decoder_from_trie {
|
||||
my $n = shift;
|
||||
my $trieref = shift;
|
||||
my $identmap = shift;
|
||||
my $idt = " ";
|
||||
my $indent0 = $idt x ($n + 2);
|
||||
my $indent1 = $indent0 . $idt;
|
||||
my $strcmp = $case_sensitive ? 'strcmp' : 'strcasecmp';
|
||||
my $field;
|
||||
|
||||
# Determine the number for each unique string
|
||||
# Sort the names to improve the chance of cache coherency
|
||||
foreach my $name (sort keys %params) {
|
||||
my $val = $params{$name};
|
||||
if ($trieref->{'suffix'}) {
|
||||
my $suf = $trieref->{'suffix'};
|
||||
|
||||
if (substr($val, 0, 1) ne '*' and not defined $reverse{$val}) {
|
||||
$reverse{$val} = $count++;
|
||||
$field = $identmap->{$trieref->{'name'}};
|
||||
printf "%sif (ossl_likely(r.%s == NULL && $strcmp(\"$suf\", s + $n) == 0", $indent0, $field;
|
||||
if (not $case_sensitive) {
|
||||
$suf =~ tr/_/-/;
|
||||
print " || $strcmp(\"$suf\", s + $n) == 0"
|
||||
if ($suf ne $trieref->{'suffix'});
|
||||
}
|
||||
printf "))\n%sr.%s = (OSSL_PARAM *)p;\n",
|
||||
$indent1, $field;
|
||||
return;
|
||||
}
|
||||
|
||||
# Output the defines
|
||||
foreach my $name (keys %params) {
|
||||
my $val = $params{$name};
|
||||
my $def = '#define PIDX_' . $name . ' ';
|
||||
|
||||
if (substr($val, 0, 1) eq '*') {
|
||||
$def .= 'PIDX_' . substr($val, 1);
|
||||
printf "%sswitch(s\[%d\]) {\n", $indent0, $n;
|
||||
printf "%sdefault:\n", $indent0;
|
||||
for my $l (sort keys %$trieref) {
|
||||
if ($l eq 'val') {
|
||||
$field = $identmap->{$trieref->{'val'}};
|
||||
printf "%sbreak;\n", $indent1;
|
||||
printf "%scase '\\0':\n", $indent0;
|
||||
printf "%sr.%s = ossl_likely(r.%s == NULL) ? (OSSL_PARAM *)p : r.%s;\n",
|
||||
$indent1, $field, $field, $field;
|
||||
} else {
|
||||
$def .= $reverse{$val};
|
||||
printf "%sbreak;\n", $indent1;
|
||||
printf "%scase '%s':", $indent0, $l;
|
||||
if (not $case_sensitive) {
|
||||
print " case '-':" if ($l eq '_');
|
||||
printf " case '%s':", uc $l if ($l =~ /[a-z]/);
|
||||
}
|
||||
print "\n";
|
||||
generate_decoder_from_trie($n + 1, $trieref->{$l}, $identmap);
|
||||
}
|
||||
push(@macros, $def)
|
||||
}
|
||||
return "#define NUM_PIDX $count\n\n" . join("\n", sort @macros);
|
||||
printf "%s}\n", $indent0;
|
||||
return;
|
||||
}
|
||||
|
||||
sub generate_trie {
|
||||
|
|
@ -710,54 +726,9 @@ sub generate_trie {
|
|||
}
|
||||
$cursor->{'val'} = $name;
|
||||
}
|
||||
#print "\n\n/* $nodes nodes for $chars letters*/\n\n";
|
||||
return %trie;
|
||||
}
|
||||
|
||||
sub generate_code_from_trie {
|
||||
my $n = shift;
|
||||
my $trieref = shift;
|
||||
my $idt = " ";
|
||||
my $indent0 = $idt x ($n + 1);
|
||||
my $indent1 = $indent0 . $idt;
|
||||
my $strcmp = $case_sensitive ? 'strcmp' : 'strcasecmp';
|
||||
|
||||
if ($trieref->{'suffix'}) {
|
||||
my $suf = $trieref->{'suffix'};
|
||||
|
||||
printf "%sif ($strcmp(\"$suf\", s + $n) == 0", $indent0;
|
||||
if (not $case_sensitive) {
|
||||
$suf =~ tr/_/-/;
|
||||
print " || $strcmp(\"$suf\", s + $n) == 0"
|
||||
if ($suf ne $trieref->{'suffix'});
|
||||
}
|
||||
printf ")\n%sreturn PIDX_%s;\n", $indent1, $trieref->{'name'};
|
||||
#printf "%sbreak;\n", $indent0;
|
||||
return;
|
||||
}
|
||||
|
||||
printf "%sswitch(s\[%d\]) {\n", $indent0, $n;
|
||||
printf "%sdefault:\n", $indent0;
|
||||
for my $l (sort keys %$trieref) {
|
||||
if ($l eq 'val') {
|
||||
printf "%sbreak;\n", $indent1;
|
||||
printf "%scase '\\0':\n", $indent0;
|
||||
printf "%sreturn PIDX_%s;\n", $indent1, $trieref->{'val'};
|
||||
} else {
|
||||
printf "%sbreak;\n", $indent1;
|
||||
printf "%scase '%s':", $indent0, $l;
|
||||
if (not $case_sensitive) {
|
||||
print " case '-':" if ($l eq '_');
|
||||
printf " case '%s':", uc $l if ($l =~ /[a-z]/);
|
||||
}
|
||||
print "\n";
|
||||
generate_code_from_trie($n + 1, $trieref->{$l});
|
||||
}
|
||||
}
|
||||
printf "%s}\n", $indent0;
|
||||
return "";
|
||||
}
|
||||
|
||||
# Find long endings and cache what they resolve to
|
||||
sub locate_long_endings {
|
||||
my $trieref = shift;
|
||||
|
|
@ -784,115 +755,15 @@ sub locate_long_endings {
|
|||
return 0, '';
|
||||
}
|
||||
|
||||
sub output_decoder {
|
||||
my $static_func = shift;
|
||||
my $func_name = shift;
|
||||
my @keys = @_;
|
||||
my %t = generate_trie(@keys);
|
||||
|
||||
locate_long_endings(\%t);
|
||||
|
||||
print $static_func . ' ' if $static_func ne '';
|
||||
printf "int %s(const char *s)\n{\n", $func_name;
|
||||
generate_code_from_trie(0, \%t);
|
||||
print " return -1;\n}\n";
|
||||
}
|
||||
|
||||
sub produce_decoder {
|
||||
my $s;
|
||||
|
||||
open local *STDOUT, '>', \$s;
|
||||
output_decoder('', @_);
|
||||
return $s;
|
||||
}
|
||||
|
||||
sub output_param_list {
|
||||
my $static_array = shift;
|
||||
my $array_name = shift;
|
||||
my $static_func = shift;
|
||||
my $func_name = shift;
|
||||
my @params = @_;
|
||||
my @keys = ();
|
||||
|
||||
print $static_array . ' ' if $static_array ne '';
|
||||
printf "const OSSL_PARAM %s[] = {\n", $array_name;
|
||||
for (my $i = 0; $i <= $#params; $i++) {
|
||||
my $pname = $params[$i][0];
|
||||
my $ptype = $params[$i][1];
|
||||
|
||||
print " OSSL_PARAM_$ptype(OSSL_$pname, NULL";
|
||||
print ", 0" if $ptype eq "octet_string" || $ptype eq "octet_ptr"
|
||||
|| $ptype eq "utf8_string" || $ptype eq "utf8_ptr";
|
||||
printf "),\n";
|
||||
|
||||
push(@keys, $pname);
|
||||
}
|
||||
print " OSSL_PARAM_END\n};\n\n";
|
||||
|
||||
output_decoder($static_func, $func_name, @keys);
|
||||
}
|
||||
|
||||
sub produce_param_list {
|
||||
my $s;
|
||||
|
||||
open local *STDOUT, '>', \$s;
|
||||
output_param_list(@_);
|
||||
return $s;
|
||||
}
|
||||
|
||||
sub generate_decoder_from_trie {
|
||||
my $n = shift;
|
||||
my $trieref = shift;
|
||||
my $identmap = shift;
|
||||
my $idt = " ";
|
||||
my $indent0 = $idt x ($n + 2);
|
||||
my $indent1 = $indent0 . $idt;
|
||||
my $strcmp = $case_sensitive ? 'strcmp' : 'strcasecmp';
|
||||
|
||||
if ($trieref->{'suffix'}) {
|
||||
my $suf = $trieref->{'suffix'};
|
||||
|
||||
printf "%sif ($strcmp(\"$suf\", s + $n) == 0", $indent0;
|
||||
if (not $case_sensitive) {
|
||||
$suf =~ tr/_/-/;
|
||||
print " || $strcmp(\"$suf\", s + $n) == 0"
|
||||
if ($suf ne $trieref->{'suffix'});
|
||||
}
|
||||
printf ")\n%sr.%s = (OSSL_PARAM *)p;\n", $indent1, $identmap->{$trieref->{'name'}};
|
||||
#printf "%sbreak;\n", $indent0;
|
||||
return;
|
||||
}
|
||||
|
||||
printf "%sswitch(s\[%d\]) {\n", $indent0, $n;
|
||||
printf "%sdefault:\n", $indent0;
|
||||
for my $l (sort keys %$trieref) {
|
||||
if ($l eq 'val') {
|
||||
printf "%sbreak;\n", $indent1;
|
||||
printf "%scase '\\0':\n", $indent0;
|
||||
printf "%sr.%s = (OSSL_PARAM *)p;\n", $indent1, $identmap->{$trieref->{'val'}};
|
||||
} else {
|
||||
printf "%sbreak;\n", $indent1;
|
||||
printf "%scase '%s':", $indent0, $l;
|
||||
if (not $case_sensitive) {
|
||||
print " case '-':" if ($l eq '_');
|
||||
printf " case '%s':", uc $l if ($l =~ /[a-z]/);
|
||||
}
|
||||
print "\n";
|
||||
generate_decoder_from_trie($n + 1, $trieref->{$l}, $identmap);
|
||||
}
|
||||
}
|
||||
printf "%s}\n", $indent0;
|
||||
return;
|
||||
}
|
||||
|
||||
sub output_param_decoder {
|
||||
my $decoder_name_base = shift;
|
||||
my @params = @_;
|
||||
my @keys = ();
|
||||
my @idents = ();
|
||||
my %prms = ();
|
||||
|
||||
print "/* Machine generated by util/perl/OpenSSL/paramnames.pm */\n";
|
||||
# Output ettable param array
|
||||
printf "#ifndef %s_ettable\n", $decoder_name_base;
|
||||
printf "static const OSSL_PARAM %s_ettable[] = {\n", $decoder_name_base;
|
||||
for (my $i = 0; $i <= $#params; $i++) {
|
||||
my $pname = $params[$i][0];
|
||||
|
|
@ -904,25 +775,23 @@ sub output_param_decoder {
|
|||
|| $ptype eq "utf8_string" || $ptype eq "utf8_ptr";
|
||||
printf "),\n";
|
||||
|
||||
push(@keys, $pname);
|
||||
push(@idents, $pident);
|
||||
$prms{$pname} = $pident;
|
||||
}
|
||||
print " OSSL_PARAM_END\n};\n\n";
|
||||
print " OSSL_PARAM_END\n};\n#endif\n\n";
|
||||
|
||||
# Output param pointer structure
|
||||
printf "#ifndef %s_st\n", $decoder_name_base;
|
||||
printf "struct %s_st {\n", $decoder_name_base;
|
||||
for (my $i = 0; $i <= $#keys; $i++) {
|
||||
my $pident = $idents[$i];
|
||||
|
||||
foreach my $pident (values %prms) {
|
||||
printf " OSSL_PARAM *%s;\n", $pident;
|
||||
}
|
||||
print "};\n\n";
|
||||
print "};\n#endif\n\n";
|
||||
|
||||
# Output param decoder
|
||||
my %t = generate_trie(@keys);
|
||||
my %t = generate_trie(keys(%prms));
|
||||
locate_long_endings(\%t);
|
||||
|
||||
printf "#ifndef %s_decoder\n", $decoder_name_base;
|
||||
printf "static struct %s_st %s_decoder(const OSSL_PARAM params[]) {\n",
|
||||
$decoder_name_base, $decoder_name_base;
|
||||
printf " struct %s_st r;\n", $decoder_name_base;
|
||||
|
|
@ -932,7 +801,8 @@ sub output_param_decoder {
|
|||
print " for (p = params; (s = p->key) != NULL; p++)\n";
|
||||
generate_decoder_from_trie(0, \%t, \%prms);
|
||||
print " return r;\n";
|
||||
print "}";
|
||||
print "}\n#endif\n";
|
||||
print "/* End of machine generated */";
|
||||
}
|
||||
|
||||
sub produce_param_decoder {
|
||||
|
|
|
|||
Loading…
Reference in New Issue