26 lines
664 B
Perl
26 lines
664 B
Perl
#!/usr/bin/perl --
|
|
use strict;
|
|
use warnings;
|
|
|
|
sub cmd($){
|
|
print "+ ",$_[0],"\n";
|
|
my $rv=system $_[0];
|
|
if ($? == -1) {
|
|
die "failed to execute: $!\n";
|
|
}elsif ($? & 127) {
|
|
die "child died with signal %d, %s coredump\n", ($? & 127), ($? & 128) ? 'with' : 'without';
|
|
}else {
|
|
my $rv = $? >> 8;
|
|
$rv and die "child exited with value $rv\n";
|
|
}
|
|
}
|
|
|
|
cmd "./gradlew --stop";
|
|
cmd "rm -rf .gradle/caches/build-cache-*";
|
|
cmd "./gradlew clean";
|
|
cmd "./gradlew assembleNoFcmRelease";
|
|
cmd "./gradlew assembleFcmRelease";
|
|
cmd "./gradlew --stop";
|
|
cmd "mv app/build/outputs/apk/SubwayTooter*.apk app/";
|
|
cmd " ls -1t app/SubwayTooter*.apk |head -n 5";
|