59 lines
1.6 KiB
Perl
59 lines
1.6 KiB
Perl
#!/usr/bin/perl
|
|
#
|
|
|
|
use strict;
|
|
sub is_prerelease($) {
|
|
my $gem_version = shift;
|
|
return ($gem_version =~ /[a-zA-Z]/);
|
|
}
|
|
|
|
sub get_release($) {
|
|
my $gem_version = shift;
|
|
my @release;
|
|
|
|
my @splitted_version = split(/\./, $gem_version);
|
|
push (@release, shift(@splitted_version));
|
|
for my $element (@splitted_version) {
|
|
last if $element !~ /\A\d+\z/;
|
|
push(@release, $element);
|
|
}
|
|
return (\@release);
|
|
}
|
|
|
|
sub get_version_str($$) {
|
|
my ($gem_version, $release_ref) = @_;
|
|
|
|
my $release_str = join('.', @$release_ref);
|
|
|
|
if (is_prerelease($gem_version)) {
|
|
$gem_version =~ s/$release_str\./$release_str~/;
|
|
};
|
|
return ($gem_version);
|
|
}
|
|
|
|
sub handle_line($$$$$) {
|
|
my ($line, $ruby_abi, $ruby_abi_version, $gem_name, $gem_version ) = @_;
|
|
|
|
my $release_ref = get_release($gem_version);
|
|
my @release = @$release_ref;
|
|
my $gem_version_str = get_version_str($gem_version, $release_ref);
|
|
my @gem_sub_version;
|
|
|
|
print ("rubygem($gem_name) = $gem_version_str\n");
|
|
print ("rubygem($ruby_abi:$ruby_abi_version:$gem_name) = $gem_version_str\n");
|
|
|
|
for my $element (@release) {
|
|
push(@gem_sub_version, $element);
|
|
my $gem_sub_version_str = join('.', @gem_sub_version);
|
|
print ("rubygem($ruby_abi:$ruby_abi_version:$gem_name:$gem_sub_version_str) = $gem_version_str\n");
|
|
}
|
|
}
|
|
|
|
my $fh = *STDIN;
|
|
while ( ! eof($fh) ) {
|
|
defined( my $line = readline $fh ) or die "readline failed: $!";
|
|
if ($line =~ /\/usr\/lib\d*\/ruby\/gems\/(?<ruby_abi_version>[^\/]+)\/specifications(\/default)?\/(?<gem_name>.+)-(?<gem_version>\d+\.[^-]+)\.gemspec\n\z/) {
|
|
handle_line($line, 'ruby', $+{ruby_abi_version}, $+{gem_name}, $+{gem_version});
|
|
};
|
|
}
|