From: Richard Levitte Date: Mon, 4 Nov 2019 09:28:00 +0000 (+0100) Subject: OpenSSL::Ordinals: Handle symbols with unassigned ordinal numbers X-Git-Tag: openssl-3.0.0-alpha1~1018 X-Git-Url: https://git.librecmc.org/?a=commitdiff_plain;h=3da95f3c5159b8404917e3ff349566488c28f798;p=oweals%2Fopenssl.git OpenSSL::Ordinals: Handle symbols with unassigned ordinal numbers We preserve the number or '?' or '?+', but assign numbers internally on the latter, to ensure we keep the order of the input. Reviewed-by: Matt Caswell Reviewed-by: Paul Dale (Merged from https://github.com/openssl/openssl/pull/10348) --- diff --git a/util/perl/OpenSSL/Ordinals.pm b/util/perl/OpenSSL/Ordinals.pm index 302d58f8b1..55d5b2f0e3 100644 --- a/util/perl/OpenSSL/Ordinals.pm +++ b/util/perl/OpenSSL/Ordinals.pm @@ -64,12 +64,12 @@ on different platforms. =item B I<%options> Creates a new instance of the C class. It takes options -in keyed pair form, i.e. a series of C value> pairs. Available +in keyed pair form, i.e. a series of C<< key => value >> pairs. Available options are: =over 4 -=item B FILENAME> +=item B<< from => FILENAME >> Not only create a new instance, but immediately load it with data from the ordinals file FILENAME. @@ -86,6 +86,7 @@ sub new { filename => undef, # File name registered when loading loaded_maxnum => 0, # Highest allocated item number when loading loaded_contents => [], # Loaded items, if loading there was + maxassigned => 0, # Current highest assigned item number maxnum => 0, # Current highest allocated item number contents => [], # Items, indexed by number name2num => {}, # Name to number dictionary @@ -101,7 +102,7 @@ sub new { return $instance; } -=item B<$ordinals-Eload FILENAME> +=item B<< $ordinals->load FILENAME >> Loads the data from FILENAME into the instance. Any previously loaded data is dropped. @@ -121,6 +122,7 @@ sub load { my @tmp_contents = (); my %tmp_name2num = (); + my $max_assigned = 0; my $max_num = 0; open F, '<', $filename or croak "Unable to open $filename"; while () { @@ -131,17 +133,27 @@ sub load { my $item = OpenSSL::Ordinals::Item->new(from => $_); my $num = $item->number(); - croak "Disordered ordinals, $num < $max_num" - if $num < $max_num; - $max_num = $num; + if ($num eq '?') { + $num = ++$max_num; + } elsif ($num eq '?+') { + $num = $max_num; + } else { + croak "Disordered ordinals, number sequence restarted" + if $max_num > $max_assigned && $num < $max_num; + croak "Disordered ordinals, $num < $max_num" + if $num < $max_num; + $max_assigned = $max_num = $num; + } - push @{$tmp_contents[$item->number()]}, $item; - $tmp_name2num{$item->name()} = $item->number(); + $item->intnum($num); + push @{$tmp_contents[$num]}, $item; + $tmp_name2num{$item->name()} = $num; } close F; $self->{contents} = [ @tmp_contents ]; $self->{name2num} = { %tmp_name2num }; + $self->{maxassigned} = $max_assigned; $self->{maxnum} = $max_num; $self->{filename} = $filename; @@ -170,10 +182,10 @@ sub rewrite { $self->write($self->{filename}); } -=item B<$ordinals-Ewrite FILENAME> +=item B<< $ordinals->write FILENAME >> Writes the current work database data to the ordinals file FILENAME. -This also validates the data, see B<$ordinals-Evalidate> below. +This also validates the data, see B<< $ordinals->validate >> below. =cut @@ -195,21 +207,21 @@ sub write { return 1; } -=item B<$ordinals-Eitems> I<%options> +=item B<< $ordinals->items >> I<%options> Returns a list of items according to a set of criteria. The criteria is -given in form keyed pair form, i.e. a series of C value> pairs. +given in form keyed pair form, i.e. a series of C<< key => value >> pairs. Available options are: =over 4 -=item B SORTFUNCTION> +=item B<< sort => SORTFUNCTION >> SORTFUNCTION is a reference to a function that takes two arguments, which correspond to the classic C<$a> and C<$b> that are available in a C block. -=item B FILTERFUNCTION> +=item B<< filter => FILTERFUNCTION >> FILTERFUNTION is a reference to a function that takes one argument, which is every OpenSSL::Ordinals::Item element available. @@ -271,7 +283,7 @@ sub _putback { my %versions = (); my %features = (); foreach (@items) { - $numbers{$_->number()} = 1; + $numbers{$_->intnum()} = 1; $versions{$_->version()} = 1; foreach ($_->features()) { $features{$_}++; @@ -280,7 +292,7 @@ sub _putback { # Check that all items we're trying to put back have the same number croak "Items don't have the same numeral: ", - join(", ", map { $_->name()." => ".$_->number() } @items), "\n" + join(", ", map { $_->name()." => ".$_->intnum() } @items), "\n" if (scalar keys %numbers > 1); croak "Items don't have the same version: ", join(", ", map { $_->name()." => ".$_->version() } @items), "\n" @@ -323,7 +335,7 @@ sub _putback { $items[0]->name(), " and ", $items[1]->name(), "\n"; } } - $self->{contents}->[$items[0]->number()] = [ @items ]; + $self->{contents}->[$items[0]->intnum()] = [ @items ]; } sub _parse_platforms { @@ -379,7 +391,7 @@ sub _adjust_version { return $version; } -=item B<$ordinals-Eadd NAME, TYPE, LIST> +=item B<< $ordinals->add NAME, TYPE, LIST >> Adds a new item named NAME with the type TYPE, and a set of C macros in LIST that are expected to be defined or undefined to use this symbol, if @@ -387,9 +399,7 @@ any. For undefined macros, they each must be prefixed with a C. If this symbol already exists in loaded data, it will be rewritten using the new input data, but will keep the same ordinal number and version. -If it's entirely new, it will get a new number and the current default -version. The new ordinal number is a simple increment from the last -maximum number. +If it's entirely new, it will get a '?' and the current default version. =cut @@ -411,7 +421,8 @@ sub add { my @items = $self->items(filter => f_name($name)); my $version = @items ? $items[0]->version() : $self->{currversion}; - my $number = @items ? $items[0]->number() : ++$self->{maxnum}; + my $intnum = @items ? $items[0]->intnum() : ++$self->{maxnum}; + my $number = @items ? $items[0]->number() : '?'; print STDERR "DEBUG[",__PACKAGE__,":add] $verbsig\n", @items ? map { "\t".$_->to_string()."\n" } @items : "No previous items\n", if $self->{debug}; @@ -421,6 +432,7 @@ sub add { OpenSSL::Ordinals::Item->new( name => $name, type => $type, number => $number, + intnum => $intnum, version => $self->_adjust_version($version), exists => 1, @@ -445,7 +457,7 @@ sub add { return @returns; } -=item B<$ordinals-Eadd_alias ALIAS, NAME, LIST> +=item B<< $ordinals->add_alias ALIAS, NAME, LIST >> Adds an alias ALIAS for the symbol NAME, and a set of C macros in LIST that are expected to be defined or undefined to use this symbol, if any. @@ -505,10 +517,13 @@ sub add_alias { # We supposedly do now know how to do this... *ahem* $items[0]->{platforms} = { %alias_platforms }; + my $number = + $items[0]->number() =~ m|^\?| ? '?+' : $items[0]->number(); my $alias_item = OpenSSL::Ordinals::Item->new( name => $alias, type => $items[0]->type(), - number => $items[0]->number(), + number => $number, + intnum => $items[0]->intnum(), version => $self->_adjust_version($items[0]->version()), exists => $items[0]->exists(), platforms => { %platforms }, @@ -528,9 +543,9 @@ sub add_alias { "\t", join(", ", map { $_->name() } @items), "\n"; } -=item B<$ordinals-Eset_version VERSION> +=item B<< $ordinals->set_version VERSION >> -=item B<$ordinals-Eset_version VERSION BASEVERSION> +=item B<< $ordinals->set_version VERSION BASEVERSION >> Sets the default version for new symbol to VERSION. @@ -591,7 +606,7 @@ sub set_version { return 1; } -=item B<$ordinals-Einvalidate> +=item B<< $ordinals->invalidate >> Invalidates the whole working database. The practical effect is that all symbols are set to not exist, but are kept around in the database to retain @@ -610,11 +625,11 @@ sub invalidate { $self->{stats} = {}; } -=item B<$ordinals-Evalidate> +=item B<< $ordinals->validate >> Validates the current working database by collection statistics on how many symbols were added and how many were changed. These numbers can be retrieved -with B<$ordinals-Estats>. +with B<< $ordinals->stats >>. =cut @@ -644,7 +659,7 @@ sub validate { } } -=item B<$ordinals-Estats> +=item B<< $ordinals->stats >> Returns the statistics that B calculate. @@ -676,12 +691,12 @@ use Carp; =item B I<%options> Creates a new instance of the C class. It takes -options in keyed pair form, i.e. a series of C value> pairs. +options in keyed pair form, i.e. a series of C<< key => value >> pairs. Available options are: =over 4 -=item B STRING> +=item B<< from => STRING >> This will create a new item, filled with data coming from STRING. @@ -691,8 +706,8 @@ STRING must conform to the following EBNF description: exist, ":", platforms, ":", type, ":", features; spaces = space, { space }; space = " " | "\t"; - symbol = ( letter | "_"), { letter | digit | "_" }; - ordinal = number; + symbol = ( letter | "_" ), { letter | digit | "_" }; + ordinal = number | "?" | "?+"; version = number, "_", number, "_", number, [ letter, [ letter ] ]; exist = "EXIST" | "NOEXIST"; platforms = platform, { ",", platform }; @@ -704,9 +719,9 @@ STRING must conform to the following EBNF description: (C and C are assumed self evident) -=item B STRING>, B NUMBER>, B STRING>, - B BOOLEAN>, B STRING>, - B HASHref>, B LISTref> +=item B<< name => STRING >>, B<< number => NUMBER >>, B<< version => STRING >>, + B<< exists => BOOLEAN >>, B<< type => STRING >>, + B<< platforms => HASHref >>, B<< features => LISTref >> This will create a new item with data coming from the arguments. @@ -732,7 +747,7 @@ sub new { croak "Badly formatted ordinals string: $opts{from}" unless ( scalar @a == 4 && $a[0] =~ /^[A-Za-z_][A-Za-z_0-9]*$/ - && $a[1] =~ /^\d+$/ + && $a[1] =~ /^\d+|\?\+?$/ && $a[2] =~ /^(?:\*|\d+_\d+_\d+[a-z]{0,2})$/ && $a[3] =~ /^ (?:NO)?EXIST: @@ -762,6 +777,7 @@ sub new { $instance = { name => $opts{name}, type => $opts{type}, number => $opts{number}, + intnum => $opts{intnum}, version => $version, exists => !!$opts{exists}, platforms => { %{$opts{platforms} // {}} }, @@ -777,36 +793,40 @@ sub new { sub DESTROY { } -=item B<$item-Ename> +=item B<< $item->name >> The symbol name for this item. -=item B<$item-Enumber> +=item B<< $item->number >> (read-write) The positional number for this item. -=item B<$item-Eversion> +This may be '?' for an unassigned symbol, or '?+' for an unassigned symbol +that's an alias for the previous symbol. '?' and '?+' must be properly +handled by the caller. The caller may change this to an actual number. + +=item B<< $item->version >> (read-only) The version number for this item. Please note that these version numbers have underscore (C<_>) as a separator the the version parts. -=item B<$item-Eexists> +=item B<< $item->exists >> (read-only) A boolean that tells if this symbol exists in code or not. -=item B<$item-Eplatforms> +=item B<< $item->platforms >> (read-only) A hash table reference. The keys of the hash table are the names of the specified platforms, with a value of 0 to indicate that this symbol isn't available on that platform, and 1 to indicate that it is. Platforms that aren't mentioned default to 1. -=item B<$item-Etype> +=item B<< $item->type >> (read-only) C or C, depending on what the symbol represents. Some platforms do not care about this, others do. -=item B<$item-Efeatures> +=item B<< $item->features >> (read-only) An array reference, where every item indicates a feature where this symbol is available. If no features are mentioned, the symbol is always available. @@ -830,7 +850,37 @@ sub AUTOLOAD { return %{$self->{$item}} if ref($self->{$item}) eq 'HASH'; } -=item B<$item-Eto_string> +=item B<< $item->intnum >> (read-write) + +Internal positional number. If I<< $item->number >> is '?' or '?+', the +caller can use this to set a number for its purposes. +If I<< $item->number >> is a number, I<< $item->intnum >> should be the +same + +=cut + +# Getter/setters +sub intnum { + my $self = shift; + my $value = shift; + my $item = 'intnum'; + + croak "$item called with extra arguments" if @_; + $self->{$item} = "$value" if defined $value; + return $self->{$item}; +} + +sub number { + my $self = shift; + my $value = shift; + my $item = 'number'; + + croak "$item called with extra arguments" if @_; + $self->{$item} = "$value" if defined $value; + return $self->{$item}; +} + +=item B<< $item->to_string >> Converts the item to a string that can be saved in an ordinals file. @@ -844,7 +894,7 @@ sub to_string { my @features = $self->features(); my $version = $self->version(); $version =~ s|\.|_|g; - return sprintf "%-39s %d\t%s\t%s:%s:%s:%s", + return sprintf "%-39s %s\t%s\t%s:%s:%s:%s", $self->name(), $self->number(), $version, @@ -859,7 +909,7 @@ sub to_string { =head2 Comparators and filters -For the B<$ordinals-Eitems> method, there are a few functions to create +For the B<< $ordinals->items >> method, there are a few functions to create comparators based on specific data: =over 4 @@ -890,7 +940,7 @@ OpenSSL::Ordinals::Item objects. =cut sub by_number { - return sub { $_[0]->number() <=> $_[1]->number() }; + return sub { $_[0]->intnum() <=> $_[1]->intnum() }; } =item B