[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/02: syscalls: Add 'arp-network-interface?'.
From: |
guix-commits |
Subject: |
01/02: syscalls: Add 'arp-network-interface?'. |
Date: |
Thu, 9 May 2019 14:11:38 -0400 (EDT) |
mbakke pushed a commit to branch master
in repository guix.
commit 5f5499d684058b2a359e9a3e8e6738bbd0c77834
Author: Marius Bakke <address@hidden>
Date: Thu May 9 17:03:03 2019 +0200
syscalls: Add 'arp-network-interface?'.
* guix/build/syscalls.scm (IFF_NOARP): New variable.
(arp-network-interface?): New public procedure.
---
guix/build/syscalls.scm | 9 +++++++++
1 file changed, 9 insertions(+)
diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm
index 749616c..3abe65b 100644
--- a/guix/build/syscalls.scm
+++ b/guix/build/syscalls.scm
@@ -104,6 +104,7 @@
network-interface-netmask
network-interface-running?
loopback-network-interface?
+ arp-network-interface?
network-interface-address
set-network-interface-netmask
set-network-interface-up
@@ -1160,6 +1161,7 @@ bytes."
(define-as-needed IFF_BROADCAST #x2) ;Broadcast address valid.
(define-as-needed IFF_LOOPBACK #x8) ;Is a loopback net.
(define-as-needed IFF_RUNNING #x40) ;interface RFC2863 OPER_UP
+(define-as-needed IFF_NOARP #x80) ;ARP disabled or unsupported
(define IF_NAMESIZE 16) ;maximum interface name size
@@ -1341,6 +1343,13 @@ interface NAME."
(close-port sock)
(not (zero? (logand flags IFF_RUNNING)))))
+(define (arp-network-interface? name)
+ "Return true if NAME supports the Address Resolution Protocol."
+ (let* ((sock (socket SOCK_STREAM AF_INET 0))
+ (flags (network-interface-flags sock name)))
+ (close-port sock)
+ (zero? (logand flags IFF_NOARP))))
+
(define-as-needed (set-network-interface-flags socket name flags)
"Set the flag of network interface NAME to FLAGS."
(let ((req (make-bytevector ifreq-struct-size)))