[Gd-chatter] r11444 - trunk/libraries/gui-sniffer

[andreas at gwydiondylan.org]

Author: andreas
Date: Mon Sep 10 01:21:20 2007
New Revision: 11444

Modified:
   trunk/libraries/gui-sniffer/command-line.dylan
Log:
job: 7299

workaround until the real implementation is there.


Modified: trunk/libraries/gui-sniffer/command-line.dylan
==============================================================================
--- trunk/libraries/gui-sniffer/command-line.dylan	(original)
+++ trunk/libraries/gui-sniffer/command-line.dylan	Mon Sep 10 01:21:20 2007
@@ -141,6 +141,9 @@
   format(stream, "Yeah, right!\n");
 end;
 
+define constant <ipv4-address> = <string>;
+define constant ipv4-address = identity;
+
 define method parse-next-argument
     (context :: <nnv-context>, type == <ipv4-address>,
      text :: <string>,
@@ -174,6 +177,7 @@
     (summary: "Network Night Vision commands",
      documentation: "The set of commands provided by Network Night Vision.")
   command nnvhelp;
+  command ping;
   group basic;
 end command-group;