[Bps-public-commit] r10727 - in bpsbuilder/Shipwright/lib/Shipwright: .

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue Feb  5 14:54:12 2008
New Revision: 10727

Modified:
   bpsbuilder/Shipwright/lib/Shipwright/Backend.pm
   bpsbuilder/Shipwright/lib/Shipwright/Backend/SVK.pm
   bpsbuilder/Shipwright/lib/Shipwright/Backend/SVN.pm

Log:
added tcsh source support

Modified: bpsbuilder/Shipwright/lib/Shipwright/Backend.pm
==============================================================================
--- bpsbuilder/Shipwright/lib/Shipwright/Backend.pm	(original)
+++ bpsbuilder/Shipwright/lib/Shipwright/Backend.pm	Tue Feb  5 14:54:12 2008
@@ -343,13 +343,11 @@
             File::Spec->catfile( $args{'install-base'}, 'etc', $_ ) );
     }
 
-    for ( 'shipwright-utility', 'shipwright-source' ) {
-        copy(
-            File::Spec->catfile( 'etc', $_ ),
-            File::Spec->catfile(
-                $args{'install-base'}, 'tools', $_
-            )
-        );
+    for ( 'shipwright-utility', 'shipwright-source-bash',
+        'shipwright-source-tcsh' )
+    {
+        copy( File::Spec->catfile( 'etc', $_ ),
+            File::Spec->catfile( $args{'install-base'}, 'tools', $_ ) );
     }
 
     chmod 0755,
@@ -629,17 +627,30 @@
 
 EOF
 ,
-source => <<'EOF'
-if [ $1 ]; then
+source_bash => <<'EOF'
+#!/usr/bin/env bash
+if [ $# = 1 ]; then
     export PATH=$1/bin:$PATH
     export PERL5LIB=$1/lib/perl5/site_perl:$1/lib/perl5:${PERL5LIB}
     export LD_LIBRARY_PATH=$1/lib:${LD_LIBRARY_PATH}
     export DYLD_LIBRARY_PATH=$1/lib:${DYLD_LIBRARY_PATH}
 else
-    echo 'USAGE: source shipwright-source BASEPATH'
+    echo 'USAGE: source shipwright-source-bash BASEPATH'
 fi
 EOF
 ,
+source_tcsh => <<'EOF'
+#!/usr/bin/env tcsh
+if ( $# == 1 ) then
+    setenv PATH $1/bin:$PATH
+    setenv PERL5LIB $1/lib/perl5/site_perl:$1/lib/perl5:${PERL5LIB}
+    setenv LD_LIBRARY_PATH $1/lib:${LD_LIBRARY_PATH}
+    setenv DYLD_LIBRARY_PATH $1/lib:${DYLD_LIBRARY_PATH}
+else
+    echo 'USAGE: source shipwright-source-tcsh BASEPATH'
+endif
+EOF
+,
 null => '',    
 );
 

Modified: bpsbuilder/Shipwright/lib/Shipwright/Backend/SVK.pm
==============================================================================
--- bpsbuilder/Shipwright/lib/Shipwright/Backend/SVK.pm	(original)
+++ bpsbuilder/Shipwright/lib/Shipwright/Backend/SVK.pm	Tue Feb  5 14:54:12 2008
@@ -49,8 +49,10 @@
           'perl_wrapper',
         File::Spec->catfile( $dir, 'etc', 'shipwright-utility' ) =>
           'installed_utility',
-        File::Spec->catfile( $dir, 'etc', 'shipwright-source' ) =>
-          'source',
+        File::Spec->catfile( $dir, 'etc', 'shipwright-source-bash' ) =>
+          'source_bash',
+        File::Spec->catfile( $dir, 'etc', 'shipwright-source-tcsh' ) =>
+          'source_tcsh',
         File::Spec->catfile( $dir, 'bin', 'shipwright-builder' ) => 'builder',
         File::Spec->catfile( $dir, 'bin', 'shipwright-utility' ) => 'utility',
         File::Spec->catfile( $dir, 't',          'test' )      => 'null',
@@ -73,7 +75,7 @@
     for (
         'bin/shipwright-builder',      'bin/shipwright-utility',
         'etc/shipwright-perl-wrapper', 'etc/shipwright-script-wrapper',
-        'etc/shipwright-source', 't/test', 'etc/shipwright-utility',
+        't/test', 'etc/shipwright-utility',
       )
     {
         $self->propset(

Modified: bpsbuilder/Shipwright/lib/Shipwright/Backend/SVN.pm
==============================================================================
--- bpsbuilder/Shipwright/lib/Shipwright/Backend/SVN.pm	(original)
+++ bpsbuilder/Shipwright/lib/Shipwright/Backend/SVN.pm	Tue Feb  5 14:54:12 2008
@@ -49,8 +49,10 @@
           'perl_wrapper',
         File::Spec->catfile( $dir, 'etc', 'shipwright-utility' ) =>
           'installed_utility',
-        File::Spec->catfile( $dir, 'etc', 'shipwright-source' ) =>
-          'source',
+        File::Spec->catfile( $dir, 'etc', 'shipwright-source-bash' ) =>
+          'source_bash',
+        File::Spec->catfile( $dir, 'etc', 'shipwright-source-tcsh' ) =>
+          'source_tcsh',
         File::Spec->catfile( $dir, 'bin', 'shipwright-builder' ) => 'builder',
         File::Spec->catfile( $dir, 'bin', 'shipwright-utility' ) => 'utility',
         File::Spec->catfile( $dir, 't',   'test' )               => 'null',
@@ -74,7 +76,7 @@
     for (
         'bin/shipwright-builder',      'bin/shipwright-utility',
         'etc/shipwright-perl-wrapper', 'etc/shipwright-script-wrapper',
-        'etc/shipwright-source', 't/test', 'etc/shipwright-utility',
+        't/test', 'etc/shipwright-utility',
       )
     {
         $self->propset(