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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue Feb  5 08:20:31 2008
New Revision: 10723

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

Log:
added tools/shipwright-source

Modified: bpsbuilder/Shipwright/lib/Shipwright/Backend.pm
==============================================================================
--- bpsbuilder/Shipwright/lib/Shipwright/Backend.pm	(original)
+++ bpsbuilder/Shipwright/lib/Shipwright/Backend.pm	Tue Feb  5 08:20:31 2008
@@ -343,12 +343,15 @@
             File::Spec->catfile( $args{'install-base'}, 'etc', $_ ) );
     }
 
-    copy(
-        File::Spec->catfile( 'etc', 'shipwright-utility' ),
-        File::Spec->catfile(
-            $args{'install-base'}, 'tools', 'shipwright-utility'
-        )
-    );
+    for ( 'shipwright-utility', 'shipwright-source' ) {
+        copy(
+            File::Spec->catfile( 'etc', $_ ),
+            File::Spec->catfile(
+                $args{'install-base'}, 'tools', $_
+            )
+        );
+    }
+
     chmod 0755,
       File::Spec->catfile( $args{'install-base'}, 'tools',
         'shipwright-utility' );
@@ -626,6 +629,17 @@
 
 EOF
 ,
+source => <<'EOF'
+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'
+fi
+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 08:20:31 2008
@@ -49,6 +49,8 @@
           'perl_wrapper',
         File::Spec->catfile( $dir, 'etc', 'shipwright-utility' ) =>
           'installed_utility',
+        File::Spec->catfile( $dir, 'etc', 'shipwright-source' ) =>
+          'source',
         File::Spec->catfile( $dir, 'bin', 'shipwright-builder' ) => 'builder',
         File::Spec->catfile( $dir, 'bin', 'shipwright-utility' ) => 'utility',
         File::Spec->catfile( $dir, 't',          'test' )      => 'null',
@@ -71,7 +73,7 @@
     for (
         'bin/shipwright-builder',      'bin/shipwright-utility',
         'etc/shipwright-perl-wrapper', 'etc/shipwright-script-wrapper',
-        't/test', 'etc/shipwright-utility',
+        'etc/shipwright-source', '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 08:20:31 2008
@@ -49,6 +49,8 @@
           'perl_wrapper',
         File::Spec->catfile( $dir, 'etc', 'shipwright-utility' ) =>
           'installed_utility',
+        File::Spec->catfile( $dir, 'etc', 'shipwright-source' ) =>
+          'source',
         File::Spec->catfile( $dir, 'bin', 'shipwright-builder' ) => 'builder',
         File::Spec->catfile( $dir, 'bin', 'shipwright-utility' ) => 'utility',
         File::Spec->catfile( $dir, 't',   'test' )               => 'null',
@@ -72,7 +74,7 @@
     for (
         'bin/shipwright-builder',      'bin/shipwright-utility',
         'etc/shipwright-perl-wrapper', 'etc/shipwright-script-wrapper',
-        't/test', 'etc/shipwright-utility',
+        'etc/shipwright-source', 't/test', 'etc/shipwright-utility',
       )
     {
         $self->propset(