guix/guix
3
4
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00
Code Issues Releases Wiki Activity

syscalls: 'configure-network-interface' has a #:netmask parameter.

Browse source 
* guix/build/syscalls.scm (configure-network-interface): Add #:netmask
keyword parameter and honor it.
This commit is contained in:
Ludovic Courtès 2016-11-17 23:09:22 +01:00
parent 175c910380
commit e9ff8d9ff1
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
guix/build/syscalls.scm
View file

@ -1028,15 +1028,19 @@ the same type as that returned by 'make-socket-address'."
(list name (strerror err))
(list err))))))
(define (configure-network-interface name sockaddr flags)
(define* (configure-network-interface name sockaddr flags
#:key netmask)
"Configure network interface NAME to use SOCKADDR, an address as returned by
'make-socket-address', and FLAGS, a bitwise-or of IFF_* constants."
'make-socket-address', and FLAGS, a bitwise-or of IFF_* constants. If NETMASK
is true, it must be a socket address to use as the network mask."
(let ((sock (socket (sockaddr:fam sockaddr) SOCK_STREAM 0)))
(dynamic-wind
(const #t)
(lambda ()
(set-network-interface-address sock name sockaddr)
(set-network-interface-flags sock name flags))
(set-network-interface-flags sock name flags)
(when netmask
(set-network-interface-netmask sock name netmask)))
(lambda ()
(close-port sock)))))