File ruby_bundled_gems.pl of Package ruby-bundled-gems-rpmhelper.36900

#!/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});
  };
}