diff options
author | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2000-02-07 10:41:56 +0000 |
---|---|---|
committer | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2000-02-07 10:41:56 +0000 |
commit | 9e266c2fb3710159bbddd7f4a1ade4b8f61df637 (patch) | |
tree | fe08a779a5559a0db6b71706ddcb6dccbf04b02f /lib | |
parent | 6aa34e898e4a7c3a5ac6c31f74674e55dd4b0564 (diff) |
Added dots for visual feedback during checkout.
Added GRDoc.
Tom
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1369 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib')
-rw-r--r-- | lib/sbin/checkout.pl | 146 |
1 files changed, 144 insertions, 2 deletions
diff --git a/lib/sbin/checkout.pl b/lib/sbin/checkout.pl index 85ad7408..c1d20e76 100644 --- a/lib/sbin/checkout.pl +++ b/lib/sbin/checkout.pl @@ -1,3 +1,11 @@ +#/*@@ +# @file checkout.pl +# @date Sat Jul 3 16:38:52 1999 +# @author Gabrielle Allen +# @desc +# +# @enddesc +#@@*/ # /usr/bin/perl -s $sbin_dir = "lib/sbin"; @@ -7,6 +15,10 @@ require "$sbin_dir/MakeUtils.pl"; # First check that CVS works die "cvs not found\n" if (!&CVSFound); +# Switch off buffering for STDOUT +select(STDOUT); +$| = 1; + # Print info &PrintInfo; @@ -56,6 +68,20 @@ print "\nAll done!\n\n"; exit; +#/*@@ +# @routine get_arrangements +# @date Sat Jul 3 16:38:52 1999 +# @author Gabrielle Allen +# @desc +# +# @enddesc +# @calls +# @calledby +# @history +# +# @endhistory +# +#@@*/ sub get_arrangements { my($repository) = @_; @@ -147,6 +173,20 @@ sub get_arrangements +#/*@@ +# @routine get_thorns +# @date Sat Jul 3 16:38:52 1999 +# @author Gabrielle Allen +# @desc +# +# @enddesc +# @calls +# @calledby +# @history +# +# @endhistory +# +#@@*/ sub get_thorns { my($repository) = @_; @@ -254,6 +294,20 @@ sub get_thorns +#/*@@ +# @routine get_applications +# @date Sat Jul 3 16:38:52 1999 +# @author Gabrielle Allen +# @desc +# +# @enddesc +# @calls +# @calledby +# @history +# +# @endhistory +# +#@@*/ sub get_applications { my($repository) = @_; @@ -383,6 +437,20 @@ sub get_applications chdir ("..") || die "Could not return to Cactus home directory\n"; } +#/*@@ +# @routine print_help +# @date Sat Jul 3 16:38:52 1999 +# @author Gabrielle Allen +# @desc +# +# @enddesc +# @calls +# @calledby +# @history +# +# @endhistory +# +#@@*/ sub print_help { @@ -393,6 +461,20 @@ sub print_help print " 1-2,4,6-7,9\n\n"; } +#/*@@ +# @routine Checkout +# @date Sat Jul 3 16:38:52 1999 +# @author Gabrielle Allen +# @desc +# +# @enddesc +# @calls +# @calledby +# @history +# +# @endhistory +# +#@@*/ sub CheckOut { my($file,$repository) = @_; @@ -400,13 +482,32 @@ sub CheckOut print("Checking out $file\n"); open(MODULES,"cvs -z9 -q -d $repository checkout $file |"); - @dummy = <MODULES>; +# @dummy = <MODULES>; + while(<MODULES>) + { + print "."; + } + print "\n"; close(MODULES); } +#/*@@ +# @routine choos_repository +# @date Sat Jul 3 16:38:52 1999 +# @author Gabrielle Allen +# @desc +# +# @enddesc +# @calls +# @calledby +# @history +# +# @endhistory +# +#@@*/ sub choose_repository { my($login) = @_; @@ -502,6 +603,20 @@ sub choose_repository } +#/*@@ +# @routine PrintInfo +# @date Sat Jul 3 16:38:52 1999 +# @author Gabrielle Allen +# @desc +# +# @enddesc +# @calls +# @calledby +# @history +# +# @endhistory +# +#@@*/ sub PrintInfo { print "\n"; @@ -510,6 +625,20 @@ sub PrintInfo print "________________________________________________________________________\n\n"; } +#/*@@ +# @routine CVSFound +# @date Sat Jul 3 16:38:52 1999 +# @author Gabrielle Allen +# @desc +# +# @enddesc +# @calls +# @calledby +# @history +# +# @endhistory +# +#@@*/ sub CVSFound { @@ -530,13 +659,26 @@ sub CVSFound } +#/*@@ +# @routine RepositoryExists +# @date Sat Jul 3 16:38:52 1999 +# @author Gabrielle Allen +# @desc +# +# @enddesc +# @calls +# @calledby +# @history +# +# @endhistory +# +#@@*/ sub RepositoryExists { my($repository) = @_; my @dummy; open(MODULES,"cvs -d $_[0] co -s |"); -# $dummy = join('', qx {cvs -d $_[0] co -s}); @dummy = <MODULES>; close(MODULES); |