[padb-devel] [padb] r122 committed - Add a --ping option to allow timing of the comms code within...

[codesite-noreply at google.com]

Revision: 122
Author: apittman
Date: Tue Aug 18 14:13:05 2009
Log: Add a --ping option to allow timing of the comms code within
padb, you can now run the following command to measure timings
(with second accuracy!)
padb --debug=verbose --ping -a -c

http://code.google.com/p/padb/source/detail?r=122

Modified:
  /branches/full-duplex/src/padb

=======================================
--- /branches/full-duplex/src/padb	Sat Aug 15 06:37:06 2009
+++ /branches/full-duplex/src/padb	Tue Aug 18 14:13:05 2009
@@ -5790,7 +5790,7 @@
      my %l;
      $l{t} = 0;
      $l{n} = 0;
-    return unless defined ( $frame->{$type} );
+    return unless defined( $frame->{$type} );
      return if ( @{ $frame->{$type} } == 0 );
      foreach my $arg ( @{ $frame->{$type} } ) {
          $l{t} = length( $arg->{type} ) if ( length( $arg->{type} ) > $l{t}  
);
@@ -5933,6 +5933,12 @@
      kill( $signal, $pid );
      return;
  }
+
+sub ping_rank {
+    my ( $cargs, $vp, $pid ) = @_;
+    output( $vp, "ACK" );
+    return;
+}

  sub show_queue {
      my ( $carg, $vp, $pid ) = @_;
@@ -7112,6 +7118,12 @@
          }
      };

+    $allfns{ping} = {
+        'handler'  => \&ping_rank,
+        'arg_long' => 'ping',
+        'help'     => "Internal ping",
+    };
+
      $allfns{set_debug} = {
          'handler'   => \&set_debug,
          'qsnet'     => 1,