[Gd-chatter] r10937 - in trunk/libraries: gui-sniffer pcap

[andreas at gwydiondylan.org]

Author: andreas
Date: Wed Nov  1 20:22:20 2006
New Revision: 10937

Modified:
   trunk/libraries/gui-sniffer/gui-sniffer.dylan
   trunk/libraries/gui-sniffer/module.dylan
   trunk/libraries/pcap/pcap.dylan
Log:
bug: 7299

Remove format-out, as gui applications have no console and crash.

Modified: trunk/libraries/gui-sniffer/gui-sniffer.dylan
==============================================================================
--- trunk/libraries/gui-sniffer/gui-sniffer.dylan	(original)
+++ trunk/libraries/gui-sniffer/gui-sniffer.dylan	Wed Nov  1 20:22:20 2006
@@ -377,7 +377,7 @@
   block(ret)
     for (ff in sorted-frame-fields(frame))
       if ((start-offset(ff) <= offset) & (end-offset(ff) >= offset))
-        format-out("looking in %s, offset %d\n", ff.field.field-name, offset - start-offset(ff));
+        //format-out("looking in %s, offset %d\n", ff.field.field-name, offset - start-offset(ff));
         ret(find-frame-at-offset(ff.value, offset - start-offset(ff)));
       end;
     end;
@@ -389,7 +389,7 @@
   block(ret)
     for (ele in frame, i from 0)
       if ((start <= offset) & (frame-size(ele) >= offset))
-        format-out("looking in %d, offset %d\n", i, offset - start);
+        //format-out("looking in %d, offset %d\n", i, offset - start);
         ret(find-frame-at-offset(ele, offset - start));
       end;
       start := start + frame-size(ele);

Modified: trunk/libraries/gui-sniffer/module.dylan
==============================================================================
--- trunk/libraries/gui-sniffer/module.dylan	(original)
+++ trunk/libraries/gui-sniffer/module.dylan	Wed Nov  1 20:22:20 2006
@@ -8,8 +8,6 @@
   use duim, exclude: { <frame>, frame-size };
   use win32-duim;
   use format;
-  use format-out;
-  use standard-io;
   use streams;
   use date;
   use file-system;

Modified: trunk/libraries/pcap/pcap.dylan
==============================================================================
--- trunk/libraries/pcap/pcap.dylan	(original)
+++ trunk/libraries/pcap/pcap.dylan	Wed Nov  1 20:22:20 2006
@@ -82,7 +82,7 @@
   let errbuf = make(<byte-vector>);
   block(ret)
     local method open-interface (name)
-            format-out("trying interface %s\n", name);
+//            format-out("trying interface %s\n", name);
             let res = pcap-open-live(name,
                                      $ethernet-buffer-size,
                                      if (interface.promiscuous?) 1 else 0 end,
@@ -90,17 +90,17 @@
                                      buffer-offset(errbuf, 0));
             if (res ~= null-pointer(<C-void*>))
               interface.pcap-t := res;
-              format-out("Opened Interface %s\n", name);
+//              format-out("Opened Interface %s\n", name);
               ret();
             end;
           end;
     //open-interface(interface.interface-name);
 
-    format-out("trying pcap-find-alldevices\n");
+//    format-out("trying pcap-find-alldevices\n");
     let (errorcode, devices) = pcap-find-all-devices(buffer-offset(errbuf, 0));
-    format-out("errcode %=\n", errorcode);
+//    format-out("errcode %=\n", errorcode);
     for (device = devices then device.next, while: device ~= null-pointer(<pcap-if*>))
-      format-out("device %s %s\n", device.name, device.description);
+//      format-out("device %s %s\n", device.name, device.description);
       if (subsequence-position(device.description, interface.interface-name))
         open-interface(device.name);
       end;