Lines Matching full:platforms

48 on a subset of the supported platforms, or if they are specific to certain
53 platforms that maintain a transfer vector indexed by position rather than
55 aliases for others for certain platforms, or that have different forms
56 on different platforms.
303 # - For platforms, both MUST hold the same ones, but with opposite values
305 # - They MUST NOT have identical name, type, numeral, version, platforms, and features
348 # Check for in addition identical name, type, and platforms
353 && $items[0]->platforms() eq $items[1]->platforms();
355 # Check that all platforms exist in both items, and have opposite values
356 my @platforms = ( { $items[0]->platforms() },
357 { $items[1]->platforms() } );
358 foreach my $platform (keys %{$platforms[0]}) {
359 if (exists $platforms[1]->{$platform}) {
360 if ($platforms[0]->{$platform} != !$platforms[1]->{$platform}) {
361 croak "Platforms aren't opposite: ",
363 map { my %tmp_h = $_->platforms();
371 delete $platforms[0]->{$platform};
372 delete $platforms[1]->{$platform};
375 # If there are any remaining platforms, something's wrong
376 if (%{$platforms[0]} || %{$platforms[0]}) {
377 croak "There are platforms not in common between ",
388 my %platforms = ();
394 if ($def =~ m{^_?WIN32$}) { $platforms{$&} = $op; }
395 if ($def =~ m{^__FreeBSD__$}) { $platforms{$&} = $op; }
397 # if ($def =~ m{^__DragonFly__$}) { $platforms{$&} = $op; }
398 # if ($def =~ m{^__OpenBSD__$}) { $platforms{$&} = $op; }
399 # if ($def =~ m{^__NetBSD__$}) { $platforms{$&} = $op; }
400 if ($def =~ m{^OPENSSL_SYS_}) { $platforms{$'} = $op; }
403 return %platforms;
463 my %platforms = _parse_platforms(@defs);
484 platforms => { %platforms },
530 my %platforms = _parse_platforms(@defs);
558 # item, just with another name. Also, the platforms given here are
560 my %alias_platforms = $items[0]->platforms();
561 foreach (keys %platforms) {
562 $alias_platforms{$_} = !$platforms{$_};
565 $items[0]->{platforms} = { %alias_platforms };
577 platforms => { %platforms },
757 exist, ":", platforms, ":", type, ":", features;
764 platforms = platform, { ",", platform };
775 B<< platforms => HASHref >>, B<< features => LISTref >>
817 platforms => { map { m|^(!)?|; $' => !$1 }
824 && ref($opts{platforms} // {}) eq 'HASH'
836 platforms => { %{$opts{platforms} // {}} },
870 =item B<< $item->platforms >> (read-only)
873 the specified platforms, with a value of 0 to indicate that this symbol
874 isn't available on that platform, and 1 to indicate that it is. Platforms
880 Some platforms do not care about this, others do.
946 my %platforms = $self->platforms();
955 join(',', (map { ($platforms{$_} ? '' : '!') . $_ }
956 sort keys %platforms)),