handle being in a subdir of a repository

[code/myrepos.git] / mr

diff --git a/mr b/mr
index f2e4af5142c3518635d1541c077cf5c498d55b34..577725d1274c7e5137dc763980e8103b237c1c30 100755 (executable)
--- a/mr
+++ b/mr
@@ -175,6 +175,7 @@ loadconfig($config);
 #use Data::Dumper;
 #print Dumper(\%config);
 
+# alias expansion and command stemming
 my $action=shift @ARGV;
 if (! exists $knownactions{$action}) {
        if (exists $alias{$action}) {
@@ -192,6 +193,15 @@ if (! exists $knownactions{$action}) {
        }
 }
 
+# handle being in a subdir of a repository
+foreach my $topdir (sort keys %config) {
+       foreach my $subdir (sort keys %{$config{$topdir}}) {
+               if ($directory =~ /^\Q$topdir$subdir\E\//) {
+                       $directory=$topdir.$subdir;
+               }
+       }
+}
+
 my (@failed, @successful, @skipped);
 my $first=1;
 foreach my $topdir (sort keys %config) {
@@ -405,17 +415,17 @@ lib = \
        }
 update = \
        if [ -d .svn ]; then \
-               svn update; \
+               svn update "$@"; \
        elif [ -d .git ]; then \
-               git pull origin master; \
+               git pull origin master "$@"; \
        else \
                error "unknown repo type"; \
        fi
 status = \
        if [ -d .svn ]; then \
-               svn status; \
+               svn status "$@"; \
        elif [ -d .git ]; then \
-               git status || true; \
+               git status "$@" || true; \
        else \
                error "unknown repo type"; \
        fi