Changeset 2422

Timestamp:

06/25/20 19:56:25 (4 years ago)

Author:

nanardon

Message:

la-cli, improve prompt, add clone()

Location:

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli

Files:

• Base.pm (modified) (1 diff)
• Object.pm (modified) (3 diffs)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Base.pm

@@ -498 +498 @@
         return $self;
     }
+}
+
+sub Traverse {
+    my ( $self, $Before, $After ) = @_;
+
+    $Before->($self) if ($Before);
+    if ($self->Parent) {
+        $self->Parent->Traverse($Before, $After);
+    }
+    $After->($self) if ($After);
 }
 

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Object.pm

@@ -153 +153 @@
         },
     });
+
+=head3 clone
+
+Create sub envirronment with same list of object
+
+=cut
+
+    $self->add_func('clone', {
+        code => sub {
+            my ($self) = @_;
+            my $totype = $self->{_otype};
+
+            LATMOS::Accounts::Cli::Object->new(
+                Parent  => $self,
+                Context => $self->Context,
+                otype   => $totype,
+                objs    => [ @{ $self->{_objects} } ],
+            )->cli();
+        },
+    } );
 
     $self->add_func('sort', {
@@ -440 +460 @@
 
             my $env = shift;
+            my @allargs = @_;
             my @args = $self->getoption(
                 {
                     'fmt=s'      => \my $fmt,
                     'filefmt=s'  => \my $filefmt,
-                }, @_
+                    'r'          => \my $recur,
+                }, @allargs
             );
+
+            if ($recur) {
+                $self->Traverse( undef, sub {
+                    $_[0]->Parent or return;
+                    $_[0]->run('list', grep { $_ ne '-r' } @allargs);
+                } );
+                return;
+            }
 
             if ($filefmt){
@@ -894 +924 @@
     my ($self) = @_;
 
+    my @otypes;
+
+    $self->Traverse( undef, sub { push(@otypes, $_[0]->otype) if($_[0]->Parent) } );
     sprintf("%s %s/%s",
         $self->base->label,
-        $self->otype,
+        join('/', @otypes),
         @{$self->objs} > 1
             ? '(' . scalar(@{$self->objs}) . ' obj.)'