[Gd-chatter] r11046 - trunk/libraries/pcap

[andreas at gwydiondylan.org]

Author: andreas
Date: Sat Dec  9 17:24:03 2006
New Revision: 11046

Modified:
   trunk/libraries/pcap/library.dylan
   trunk/libraries/pcap/pcap.dylan
Log:
job: 7299

Disable debug output.

Modified: trunk/libraries/pcap/library.dylan
==============================================================================
--- trunk/libraries/pcap/library.dylan	(original)
+++ trunk/libraries/pcap/library.dylan	Sat Dec  9 17:24:03 2006
@@ -21,7 +21,7 @@
   use common-dylan;
   use c-ffi;
   use winsock2;
-  use format-out;
+  //use format-out;
   use standard-io;
   use subseq;
   use dylan-direct-c-ffi;

Modified: trunk/libraries/pcap/pcap.dylan
==============================================================================
--- trunk/libraries/pcap/pcap.dylan	(original)
+++ trunk/libraries/pcap/pcap.dylan	Sat Dec  9 17:24:03 2006
@@ -132,19 +132,19 @@
 //      format-out("GOT as address %= ", ele.address.sa-family-value);
       local method printme (x)
               for (f from 2 below 6)
-                format-out("%X ", sa-data-array(x, f));
+                //format-out("%X ", sa-data-array(x, f));
               end;
-              format-out(" ");
+              //format-out(" ");
             end;
       printme(ele.address);
       if (null-pointer(<sockaddr*>) ~= ele.netmask)
-        format-out("netmask "); printme(ele.netmask);
+       // format-out("netmask "); printme(ele.netmask);
       end;
       if (null-pointer(<sockaddr*>) ~= ele.broadcast-address)
-        format-out("broadcast-address "); printme(ele.broadcast-address);
+        //format-out("broadcast-address "); printme(ele.broadcast-address);
       end;
       if (null-pointer(<sockaddr*>) ~= ele.destination-address)
-        format-out("destination-address "); printme(ele.destination-address);
+        //format-out("destination-address "); printme(ele.destination-address);
       end;
       local method get-address (foo :: <pcap-addr*>)
               let res = make(<stretchy-vector-subsequence>, size: 4);