[Gd-chatter] r11392 - in trunk/fundev/sources/network: . unix-sockets

[andreas at gwydiondylan.org]

Author: andreas
Date: Wed Jun  6 01:31:40 2007
New Revision: 11392

Modified:
   trunk/fundev/sources/network/unix-network-library.dylan
   trunk/fundev/sources/network/unix-sockets/x86-linux-address-data.dylan
Log:
job: 7299

Support querying of device name from index.


Modified: trunk/fundev/sources/network/unix-network-library.dylan
==============================================================================
--- trunk/fundev/sources/network/unix-network-library.dylan	(original)
+++ trunk/fundev/sources/network/unix-network-library.dylan	Wed Jun  6 01:31:40 2007
@@ -141,6 +141,7 @@
       ifr-flags, ifr-flags-setter,
       $IF-NAMESIZE, $SIOCGIFINDEX,
       $SIOCGIFFLAGS, $SIOCSIFFLAGS,
+      $SIOCGIFNAME,
       $IFF-UP,
       $IFF-BROADCAST,
       $IFF-DEBUG,

Modified: trunk/fundev/sources/network/unix-sockets/x86-linux-address-data.dylan
==============================================================================
--- trunk/fundev/sources/network/unix-sockets/x86-linux-address-data.dylan	(original)
+++ trunk/fundev/sources/network/unix-sockets/x86-linux-address-data.dylan	Wed Jun  6 01:31:40 2007
@@ -177,7 +177,13 @@
 
 define method ifr-name (ifreq :: <ifreq*>)
  => (name :: <string>);
-  error("not implemented");
+  let res = "";
+  let i = 0;
+  while (%ifr-name(ifreq, i) ~= 0 & i < $IF-NAMESIZE)
+    res := add(res, as(<character>, %ifr-name(ifreq, i)));
+    i := i + 1;
+  end;
+  res;
 end method ifr-name;
 
 define method ifr-name-setter (name :: <string>, ifreq :: <ifreq*>)
@@ -212,6 +218,7 @@
 
 
 define constant $SIOCGIFINDEX = #x8933;
+define constant $SIOCGIFNAME  = #x8910;
 define constant $SIOCGIFFLAGS = #x8913;
 define constant $SIOCSIFFLAGS = #x8914;