- sideeffect: exx function does >&2
find -type f -a '(' -name "*.[chC]" -o -name "*.cc" -o -name "*.java" ')'|ctags --file-tags -L -
fi; );}; export -f ctags
function cpan {(unset cpan; if [ $# = 0 ];then cpan;else perl -MCPAN -e "install qw($*);";fi; );}; export -f cpan
+function exx { cd "`unset exx;exx "$@"|tee /proc/self/fd/2|tail -n1|sed -n 's/^extdir=//p'`"; };export -f exx
ulimit -c 0
set +H
die "Syntax: $0 <pathname((".join("|",map(".$_",sort keys %{+FORMATS})).")|=<ext>)>..."
if !@ARGV;
+my @extdirs;
my $origdir=cwd;
for my $fname (@ARGV) {
my @parsed;
print "\t$extdir/:\n"; STDOUT->flush();
my $rc;
$rc=system $cmd and die "$cmd (rc=".($rc>>8)."): $!";
+ push @extdirs,$extdir;
}
continue {
chdir $origdir;
}
+print "extdir=".$extdirs[0]."\n" if 1==@extdirs;
exit 0;