| 1 | #!/usr/bin/perl |
| 2 | use strict; |
| 3 | use warnings; |
| 4 | |
| 5 | sub _run { |
| 6 | print(' >> ', @_, "\n");# and 0; |
| 7 | system(@_); |
| 8 | } |
| 9 | |
| 10 | my $dopush=1; |
| 11 | my $pop='pop -a'; |
| 12 | while (@ARGV and $ARGV[0] =~ m/^-/) { |
| 13 | if ($ARGV[0] eq '-n') { |
| 14 | $dopush=0; |
| 15 | shift @ARGV; |
| 16 | } |
| 17 | if ($ARGV[0] eq '-t') { |
| 18 | shift @ARGV; |
| 19 | $pop = 'goto '.shift @ARGV; |
| 20 | } |
| 21 | } |
| 22 | |
| 23 | # default: sink current patch |
| 24 | if (@ARGV == 0) { |
| 25 | $ARGV[0] = `stg top`; |
| 26 | } |
| 27 | |
| 28 | my @oldapplied=`stg applied`; |
| 29 | chomp (@oldapplied); |
| 30 | |
| 31 | _run('stg '.$pop) && |
| 32 | die "cannot pop all patches"; |
| 33 | _run('stg push ' . join (' ', @ARGV)) && |
| 34 | die "error pushing patches"; |
| 35 | |
| 36 | if ($dopush) { |
| 37 | my @newapplied=`stg applied`; |
| 38 | chomp (@newapplied); |
| 39 | my @remaining=grep { my $check=$_; |
| 40 | not grep { $check eq $_ } @newapplied; |
| 41 | } @oldapplied; |
| 42 | _run('stg push ' . join (' ', @remaining)) && |
| 43 | die "error pushing remaining patches"; |
| 44 | } |