IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Changeset 21497


Ignore:
Timestamp:
Feb 15, 2009, 5:13:24 PM (17 years ago)
Author:
welling
Message:

Improved way of picking out a default tag for selection of appropriate
tagset.

Location:
branches/ipp-magic-v0/psconfig
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • branches/ipp-magic-v0/psconfig/psbuild

    r19883 r21497  
    11#!/usr/bin/env perl
     2
     3# Get the CVS tag
     4$cvsNameString= '$Name: not supported by cvs2svn $';
     5if ( $cvsNameString =~ /\$Name: not supported by cvs2svn $/ ) {
     6    $cvsTag = $1;
     7}
     8else { die "ERROR: cannot parse CVS tag string\n"; }
    29
    310$tagsets = "tagsets";
    … …  
    96103
    97104if ( @ARGV == 0) {
    98     @list = <$tagsets/*.dist>;
    99     $distribution = $list[-1];
     105    $defaultversion = $cvsTag;
     106    $file="$tagsets/$defaultversion.dist";
    100107} else {
    101108    $distribution = "$tagsets/$ARGV[0].dist";

  • branches/ipp-magic-v0/psconfig/pschecklibs

    r20298 r21497  
    11#!/usr/bin/env perl
     2
     3# Get the CVS tag
     4$cvsNameString= '$Name: not supported by cvs2svn $';
     5if ( $cvsNameString =~ /\$Name: not supported by cvs2svn $/ ) {
     6    $cvsTag = $1;
     7}
     8else { die "ERROR: cannot parse CVS tag string\n"; }
     9# Strip off release version number if present
     10if ( $cvsTag =~ /^(.+)\-\d*$/ ) {
     11    $cvsTag = $1;
     12}
    213
    314$tagsets = "tagsets";
    … …  
    3950
    4051if ( @ARGV == 0) {
    41     @list = <$tagsets/*.libs>;
    42     $file = $list[-1];
     52    $defaultversion=$cvsTag;
     53    $file="$tagsets/$defaultversion.libs";
    4354} else {
    4455    $file = "$tagsets/$ARGV[0].libs";

  • branches/ipp-magic-v0/psconfig/pscheckperl

    r17490 r21497  
    11#!/usr/bin/env perl
     2
     3# Get the CVS tag
     4$cvsNameString= '$Name: not supported by cvs2svn $';
     5if ( $cvsNameString =~ /\$Name: not supported by cvs2svn $/ ) {
     6    $cvsTag = $1;
     7}
     8else { die "ERROR: cannot parse CVS tag string\n"; }
     9# Strip off release version number if present
     10if ( $cvsTag =~ /^(.+)\-\d*$/ ) {
     11    $cvsTag = $1;
     12}
    213
    314$tagsets = "tagsets";
    … …  
    3243
    3344if ( @ARGV == 0) {
    34     @list = <$tagsets/*.perl>;
    35     $file = $list[-1];
     45    $defaultversion=$cvsTag;
     46    $file="$tagsets/$defaultversion.perl";
    3647} else {
    3748    $file = "$tagsets/$ARGV[0].perl";
Note: See TracChangeset for help on using the changeset viewer.