nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

services: static-networking-service: Switch to (guix build syscalls). 

* gnu/services/networking.scm (static-networking-service): Remove
  #:inetutils parameter.  Rewrite using 'configure-network-interface'
  and 'set-network-interface-flags'.
This commit is contained in:
Ludovic Courtès 2014-12-19 17:15:31 +01:00
parent c9bf64d6d7
commit 7f5c2a9cc1
1 changed files with 37 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
gnu/services/networking.scm
View File

@ -80,34 +80,35 @@ fe80::1%lo0 apps.facebook.com\n")
gateway gateway
(provision '(networking)) (provision '(networking))
(name-servers '()) (name-servers '())
(inetutils inetutils)
(net-tools net-tools)) (net-tools net-tools))
"Return a service that starts @var{interface} with address @var{ip}. If "Return a service that starts @var{interface} with address @var{ip}. If
@var{gateway} is true, it must be a string specifying the default network @var{gateway} is true, it must be a string specifying the default network
gateway." gateway."
(define loopback?
(memq 'loopback provision))
;; TODO: Eventually we should do this using Guile's networking procedures, ;; TODO: Eventually replace 'route' with bindings for the appropriate
;; like 'configure-qemu-networking' does, but the patch that does this is ;; ioctls.
;; not yet in stock Guile.
(with-monad %store-monad (with-monad %store-monad
(return (return
(service (service
;; Unless we're providing the loopback interface, wait for udev to be up ;; Unless we're providing the loopback interface, wait for udev to be up
;; and running so that INTERFACE is actually usable. ;; and running so that INTERFACE is actually usable.
(requirement (if (memq 'loopback provision) (requirement (if loopback? '() '(udev)))
'()
'(udev)))
(documentation (documentation
"Bring up the networking interface using a static IP address.") "Bring up the networking interface using a static IP address.")
(provision provision) (provision provision)
(start #~(lambda _ (start #~(lambda _
;; Return #t if successfully started. ;; Return #t if successfully started.
(and (zero? (system* (string-append #$inetutils (let* ((addr (inet-pton AF_INET #$ip))
"/bin/ifconfig") (sockaddr (make-socket-address AF_INET addr 0)))
"-i" #$interface "-A" #$ip (configure-network-interface #$interface sockaddr
"-i" #$interface "--up")) (logior IFF_UP
#$(if loopback?
#~IFF_LOOPBACK
0))))
#$(if gateway #$(if gateway
#~(zero? (system* (string-append #$net-tools #~(zero? (system* (string-append #$net-tools
"/sbin/route") "/sbin/route")
@ -124,16 +125,17 @@ gateway."
(format port "nameserver ~a~%" (format port "nameserver ~a~%"
server)) server))
'#$name-servers))) '#$name-servers)))
#t)))) #t)))
(stop #~(lambda _ (stop #~(lambda _
;; Return #f is successfully stopped. ;; Return #f is successfully stopped.
(not (and (system* (string-append #$inetutils "/bin/ifconfig") (let ((sock (socket AF_INET SOCK_STREAM 0)))
#$interface "down") (set-network-interface-flags sock #$interface 0)
#$(if gateway (close-port sock))
(not #$(if gateway
#~(system* (string-append #$net-tools #~(system* (string-append #$net-tools
"/sbin/route") "/sbin/route")
"del" "-net" "default") "del" "-net" "default")
#t))))) #t))))
(respawn? #f))))) (respawn? #f)))))
(define* (dhcp-client-service #:key (dhcp isc-dhcp)) (define* (dhcp-client-service #:key (dhcp isc-dhcp))