git://git.jankratochvil.net
/
nethome.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
.bashrc: +function exx: cd into $extdir if it is the only one created (successfuly)
[nethome.git]
/
bin
/
exx
diff --git
a/bin/exx
b/bin/exx
index
12de60d
..
c81dafe
100755
(executable)
--- a/
bin/exx
+++ b/
bin/exx
@@
-27,6
+27,7
@@
use constant FORMATS=>{
die "Syntax: $0 <pathname((".join("|",map(".$_",sort keys %{+FORMATS})).")|=<ext>)>..."
if !@ARGV;
die "Syntax: $0 <pathname((".join("|",map(".$_",sort keys %{+FORMATS})).")|=<ext>)>..."
if !@ARGV;
+my @extdirs;
my $origdir=cwd;
for my $fname (@ARGV) {
my @parsed;
my $origdir=cwd;
for my $fname (@ARGV) {
my @parsed;
@@
-65,8
+66,10
@@
for my $fname (@ARGV) {
print "\t$extdir/:\n"; STDOUT->flush();
my $rc;
$rc=system $cmd and die "$cmd (rc=".($rc>>8)."): $!";
print "\t$extdir/:\n"; STDOUT->flush();
my $rc;
$rc=system $cmd and die "$cmd (rc=".($rc>>8)."): $!";
+ push @extdirs,$extdir;
}
continue {
chdir $origdir;
}
}
continue {
chdir $origdir;
}
+print "extdir=".$extdirs[0]."\n" if 1==@extdirs;
exit 0;
exit 0;