Merge pull request #107 from dwarring/master

adding 'look' command - fetch, then invoke shell in temporary directory
tadzik · Oct 21, 2014 · 1ff9959 · 1ff9959
2 parents c1fd655 + 704557a
commit 1ff9959
Show file tree

Hide file tree

Showing 2 changed files with 42 additions and 3 deletions.
diff --git a/bin/panda b/bin/panda
@@ -17,7 +17,7 @@ my $panda = Panda.new(:ecosystem(make-default-ecosystem));
 multi MAIN ('install', *@modules, Bool :$notests, Bool :$nodeps) {
     for @modules -> $x {
         try {
-            $panda.resolve($x, :$notests, :$nodeps);
+            $panda.resolve($x, :$notests, :$nodeps, :action<install>);
             CATCH { when X::Panda { say $_.message } }
         };
     }
@@ -43,6 +43,16 @@ multi MAIN ('search', $pattern) {
     search-projects($panda, $pattern);
 }
 
+#= Download and unpack the distribution and then open the directory with your shell.
+multi MAIN ('look', *@modules) {
+    for @modules -> $x {
+        try {
+            $panda.resolve($x, :notests, :action<look>);
+            CATCH { when X::Panda { say $_.message } }
+        };
+    }
+}
+
 END {
     rm_rf '.panda-work' if '.panda-work'.IO.e;
 }

diff --git a/lib/Panda.pm b/lib/Panda.pm
@@ -77,6 +77,31 @@ class Panda {
         return False;
     }
 
+    method look(Panda::Project $bone) {
+        my $dir = tmpdir();
+
+        self.announce('fetching', $bone);
+        unless $bone.metainfo<source-url> {
+            die X::Panda.new($bone.name, 'fetch', 'source-url meta info missing')
+        }
+        unless $_ = $.fetcher.fetch($bone.metainfo<source-url>, $dir) {
+            die X::Panda.new($bone.name, 'fetch', $_)
+        }
+
+        my $shell = %*ENV<SHELL>;
+        $shell ||= %*ENV<COMSPEC>
+            if $*DISTRO.name eq 'mswin32';
+
+        if $shell {
+
+            my $*CWD = $dir;
+            self.announce("Entering $dir with $shell\n");
+            shell $shell or fail "Unable to invoke shell: $shell"
+        } else {
+            self.announce("You don't seem to have a SHELL");
+        }
+    }
+
     method install(Panda::Project $bone, $nodeps,
                    $notests, $isdep as Bool) {
         my $cwd = $*CWD;
@@ -131,7 +156,7 @@ class Panda {
         return @deps;
     }
 
-    method resolve($proj as Str is copy, Bool :$nodeps, Bool :$notests) {
+    method resolve($proj as Str is copy, Bool :$nodeps, Bool :$notests, :$action='install') {
         my $tmpdir = tmpdir();
         LEAVE { rm_rf $tmpdir if $tmpdir.IO.e }
         mkpath $tmpdir;
@@ -160,7 +185,11 @@ class Panda {
             };
             self.install($_, $nodeps, $notests, 1) for @deps;
         }
-        self.install($bone, $nodeps, $notests, 0);
+
+        given $action {
+            when 'install' { self.install($bone, $nodeps, $notests, 0); }
+            when 'look'    { self.look($bone) };
+        }
     }
 }