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

[hannes at gwydiondylan.org]

Author: hannes
Date: Sat Sep  2 20:54:11 2006
New Revision: 10880

Modified:
   trunk/libraries/gui-sniffer/gui-sniffer.dylan
   trunk/libraries/pcap/pcap.dylan
Log:
Bug: 7299
fixed typo (promiscuous, not promiscious)

Modified: trunk/libraries/gui-sniffer/gui-sniffer.dylan
==============================================================================
--- trunk/libraries/gui-sniffer/gui-sniffer.dylan	(original)
+++ trunk/libraries/gui-sniffer/gui-sniffer.dylan	Sat Sep  2 20:54:11 2006
@@ -583,11 +583,11 @@
 end;
 
 define method open-interface (frame :: <gui-sniffer-frame>)
-  let (interface-name, promiscious?) = prompt-for-interface(owner: frame);
+  let (interface-name, promiscuous?) = prompt-for-interface(owner: frame);
   if (interface-name)
     let interface = make(<ethernet-interface>,
                          name: interface-name,
-                         promiscious?: promiscious?);
+                         promiscuous?: promiscuous?);
     connect(interface, frame);
     reinit-gui(frame);
     make(<thread>, function: curry(toplevel, interface));
@@ -616,20 +616,20 @@
 
 define method prompt-for-interface
   (#key title = "Please specify interface", owner)
- => (interface-name :: false-or(<string>), promiscious? :: <boolean>)
+ => (interface-name :: false-or(<string>), promiscuous? :: <boolean>)
   let devices = find-all-devices();
   let interfaces = make(<list-box>, items: devices);
-  let promiscious? = make(<check-box>, items: #("promiscious"), selection: #[0]);
+  let promiscuous? = make(<check-box>, items: #("promiscuous"), selection: #[0]);
   let interface-selection-dialog
     = make(<dialog-frame>,
            title: title,
            owner: owner,
            layout: horizontally()
                      interfaces;
-                     promiscious?
+                     promiscuous?
                    end);
   if (start-dialog(interface-selection-dialog))
-    values(gadget-value(interfaces), size(gadget-value(promiscious?)) > 0)
+    values(gadget-value(interfaces), size(gadget-value(promiscuous?)) > 0)
   end;
 end;
 

Modified: trunk/libraries/pcap/pcap.dylan
==============================================================================
--- trunk/libraries/pcap/pcap.dylan	(original)
+++ trunk/libraries/pcap/pcap.dylan	Sat Sep  2 20:54:11 2006
@@ -35,7 +35,7 @@
 
 //XXX needed because bug #7192 c-ffi stuff needs to be compiled in tight mode
 define generic interface-name (object :: <ethernet-interface>) => (res :: <string>);
-define generic promiscious? (object :: <ethernet-interface>) => (res :: <boolean>);
+define generic promiscuous? (object :: <ethernet-interface>) => (res :: <boolean>);
 define generic pcap-t (object :: <ethernet-interface>) => (res :: <object>);
 define generic pcap-t-setter (value :: <object>, object :: <ethernet-interface>) => (res :: <object>);
 define generic running? (object :: <ethernet-interface>) => (res :: <boolean>);
@@ -43,7 +43,7 @@
 
 define open class <ethernet-interface> (<filter>)
   constant slot interface-name :: <string> = "ath0", init-keyword: name:;
-  constant slot promiscious? :: <boolean> = #t, init-keyword: promiscious?:;
+  constant slot promiscuous? :: <boolean> = #t, init-keyword: promiscuous?:;
   slot running? :: <boolean> = #t;
   slot pcap-t;
 end;
@@ -85,7 +85,7 @@
             format-out("trying interface %s\n", name);
             let res = pcap-open-live(name,
                                      $ethernet-buffer-size,
-                                     if (interface.promiscious?) 1 else 0 end,
+                                     if (interface.promiscuous?) 1 else 0 end,
                                      $timeout,
                                      buffer-offset(errbuf, 0));
             if (res ~= null-pointer(<C-void*>))