/[cvs]/nfo/perl/libs/Data/Rap/Command.pm

Diff of /nfo/perl/libs/Data/Rap/Command.pm

Parent Directory | Revision Log | View Patch Patch

-revision 1.6 by joko,
Sat Mar 29 07:10:42 2003 UTC
+revision 1.8 by joko,
Mon Jun  7 16:45:56 2004 UTC
 Line 2
  ##  $Id$
  ## ----------------------------------------------------------------------
  ##  $Log$
+ ##  Revision 1.8  2004/06/07 16:45:56  joko
+ ##  now propagates args to "rapcall method"
+ ##
+ ##  Revision 1.7  2003/05/13 07:52:14  joko
+ ##  enhanced: *hierarchical* containers for context handling
+ ##  making methods from foreign context(s) available
+ ##  started: import of targets from foreign topics
+ ##
  ##  Revision 1.6  2003/03/29 07:10:42  joko
  ##  + sub _script:
  ##    new rap-command: '<script language="msdos/bat|bash|...">...</script>'
-Line 70 
 sub _echo {
+Line 78 
 sub _echo {
  sub _context {
    my $self = shift;
    my $args = shift;
-   print Dumper($args);
+   print "_context-args: ", Dumper($args);
    foreach my $task_command (keys %$args) {
      my $bunch = $args->{$task_command};
      foreach my $task_args (@$bunch) {
-Line 86 
 sub _id {}
+Line 94 
 sub _id {}
  # FIXME
  sub _description {}
+ # NEW [2003-05-08]: Hierarchical handling (stack push/pop instead of set/get).
+ # TODO: Named Containers.
  sub _container {
    my $self = shift;
    my $args = shift;
-   $self->setContainer($args);
+   $self->pushContainer($args);
+ }
+ sub _container_end {
+   my $self = shift;
+   my $args = shift;
+   $self->popContainer();
  }
  sub _sync {
-Line 127 
 sub _dump {
+Line 143 
 sub _dump {
  sub _plugin {
    my $self = shift;
    my $args = shift;
+   my $content = shift;
    if (my $instance = $args->{instance}) {
      #$self->{$instance} = DesignPattern::Object->fromPackage($args->{module});
-Line 198 
 sub _plugin {
+Line 215 
 sub _plugin {
        $container->load($name);
      # 3. methods - run object methods
+       # payload inside $content is the $args to the $method
+       # convert xml-style payload inside $content to trivial (not-nested) perl hash
+       # using just encapsulated text of the nodes as hash values
+       my $method_args;
+       foreach (@$content) {
+         my $key = $_->{name};
+         my $value = $_->{content}->[0]->{content};
+         $method_args->{$key} = $value;
+       }
+       # convert hashref to arrayref
+       $method_args = [ %$method_args ] if ref $method_args eq 'HASH';
        if (my $methods = $args->{methods}) {
          my @methods = split(/,|,\s/, $methods);
          foreach (@methods) {
            $self->log("Running method '$_'.", 'info');
-           $container->$_() if $container->can($_);
+           #print Dumper($method_args);
+           # check for existance of method
+           if ($container->can($_)) {
+             # dispatch call by being with or without arguments
+             print "method_args: ", Dumper($method_args);
+             if ($method_args) {
+               $container->$_(@$method_args);
+             } else {
+               $container->$_();
+             }
+           }
          }
        }
-Line 223 
 sub _rapcall {
+Line 263 
 sub _rapcall {
    my $self = shift;
    my $args = shift;
+   # merge container arguments to local ones if desired/requested/forced
    if (my $container = $self->getContainer()) {
      #my $opts = merge($container, $args);
      #print Dumper($container);
-Line 230 
 sub _rapcall {
+Line 271 
 sub _rapcall {
    }
    # trace
-     #print Dumper($args);
+   #print Dumper($args);
+   # action dispatcher, either do:
+   #   - run an executable program [ext]
+   #   - call a command (?) [rap]
+   #   - a rap target [rap]
+   #   - a code method [ext]
    if ($args->{executable}) {
      $self->run_executable($args);
      return;
-Line 253 
 sub _rapcall {
+Line 300 
 sub _rapcall {
        #eval($namespace . '::' . $method . '();');
        #die($@) if $@;
        #print Dumper($self);
-       $self->{$refkey}->$method();
+       #if ($args->{args} && lc $args->{args} eq 'array') {
+         #print Dumper($args);
+         #print Dumper($self);
+       #}
+       # V1 - no arguments were being propagated
+       #$self->{$refkey}->$method();
+       # V2 - trying this....
+       $self->{$refkey}->$method($args->{args});
      } elsif (my $ref = $self->getInstance()) {
-       $ref->$method();
+       $ref->$method($args->{args});
      }
      return;
-Line 272 
 sub _exit {
+Line 328 
 sub _exit {
  sub _use {
    my $self = shift;
    my $args = shift;
-   my $name = $args->{name};
-   $self->log("Switching to '$name'.", 'info');
+   # new of ~2003-04-15: making methods from foreign context(s) available
-   $self->setInstance($self->{$name}) if $args->{type} eq 'instance';
+   if (my $name = $args->{name}) {
+     $args->{type} ||= '';
+     $self->log("Switching to $args->{type} '$name'.", 'info');
+     $self->setInstance($self->{$name}) if $args->{type} eq 'instance';
+   }
+   # new of ~2003-04-15: making methods from foreign context(s) available
+   if (exists $args->{method_prefix}) {
+     #print "YAI", "\n";
+     #print Dumper($args);
+     $self->set_property( { name => 'core.method_prefix', value => $args->{method_prefix} } );
+   }
+   # TODO: (possible feature)
+   # check for $args->{export_rap_commands} to export core rap-commands
+   # from rap engine's scope to the worker's
  }
  sub _script {
-Line 293 
 sub _script {
+Line 365 
 sub _script {
  }
+ sub _import {
+   my $self = shift;
+   my $args = shift;
+   #my $content = shift;
+   if (!$args->{topic}) {
+     $self->log("Please specify topic.", 'warning');
+     return;
+   }
+   $self->log("Importing all targets from topic '$args->{topic}'.", 'info');
+   #print Dumper($self);
+   # FIXME: This was started off, but not finished!
+   print "registry: ", Dumper($Data::Rap::registry);
+ }
 ;
  __END__

 Legend:



Removed from v.1.6
 


changed lines


 
Added in v.1.8
 Legend:



Removed from v.1.6
 


changed lines


 
Added in v.1.8
-Removed from v.1.6
+Added in v.1.8

MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26