diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-11-17 23:09:22 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-11-17 23:21:47 +0100 |
| commit | e9ff8d9ff15db2917d7200cda2bb68a52a9b19b0 (patch) | |
| tree | b49b164754f7a05a233d69e50b02d573f0065960 | |
| parent | 175c9103800640a2ecdc2c33094a03687270b341 (diff) | |
| download | guix-e9ff8d9ff15db2917d7200cda2bb68a52a9b19b0.tar guix-e9ff8d9ff15db2917d7200cda2bb68a52a9b19b0.tar.gz | |
syscalls: 'configure-network-interface' has a #:netmask parameter.
* guix/build/syscalls.scm (configure-network-interface): Add #:netmask
keyword parameter and honor it.
| -rw-r--r-- | guix/build/syscalls.scm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm index f4d4d155ec..c3832f6d48 100644 --- a/guix/build/syscalls.scm +++ b/guix/build/syscalls.scm @@ -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))))) |