Subversion Repositories gelsvn

package WinVersionTranslator;

# ************************************************************

# Description   : Translate the version value for Windows.

#                 Windows can not handle letters in the version

#                 and truncates anything after \d+\.\d+.  We

#                 will convert letters to numbers, retain

#                 trailing numbers and everything else will be

#                 converted to a zero.

#

#                 ex. 1.4.3  => 1.403

#                     1.4a.5 => 1.4005

#                     1.4b.4 => 1.4104

#

# Author        : Chad Elliott

# Create Date   : 10/7/2004

# ************************************************************

# ************************************************************

# Pragmas

# ************************************************************

use strict;

# ************************************************************

# Subroutine Section

# ************************************************************

sub translate {

  my($version) = shift;

  if ($version =~ /^(\d+\.\d+)([^\d].*)$/) {

    $version = $1;

    my($post) = $2;

    my($length) = length($post);

    for(my $i = 0; $i < $length; ++$i) {

      my($ch) = substr($post, $i, 1);

      if ($ch =~ /[a-z]/i) {

        my($digit) = ord(lc($ch)) - ord('a');

        $version .= $digit;

      }

      elsif ($ch =~ /\d/) {

        $version .= $ch;

      }

      else {

        $version .= '0';

      }

    }

    if ($version =~ /(\d+)\.(\d+)/) {

      my($major) = $1;

      my($minor) = $2;

      $minor =~ s/^\d+\.//;

      while($minor > 65535) {

        $minor = substr($minor, 0, length($minor) - 1);

      }

      $version = $major . '.' . $minor;

    }

  }

  return $version;

}

1;