ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 05:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: Define '%loopback-static-networking'.

Browse source 
* gnu/services/base.scm (%loopback-static-networking): New variable.
(%base-services): Use it.
* gnu/system/hurd.scm (%base-services/hurd): Use it.
* gnu/system/install.scm (%installation-services): Use it.
* doc/guix.texi (Networking Setup): Document it.
This commit is contained in:
Ludovic Courtès 2021-10-27 12:26:31 +02:00
parent 1644f4f1f8
commit 5967aee398
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
4 changed files with 20 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
doc/guix.texi
View file

@ -17012,6 +17012,13 @@ List of arguments for this type of link.
@end table
@end deftp
@cindex loopback device
@defvr {Scheme Variable} %loopback-static-networking
This is the @code{static-networking} record representing the ``loopback
device'', @code{lo}, for IP addresses 127.0.0.1 and ::1, and providing
the @code{loopback} Shepherd service.
@end defvr
@cindex networking, with QEMU
@cindex QEMU, networking
@defvr {Scheme Variable} %qemu-static-networking

17
gnu/services/base.scm
View file

@ -116,6 +116,7 @@ (define-module (gnu services base)
static-networking-service
static-networking-service-type
%loopback-static-networking
%qemu-static-networking
udev-configuration
@ -2710,6 +2711,15 @@ (define-deprecated (static-networking-service interface ip
(provision (or provision '(networking)))
(name-servers name-servers)))))
(define %loopback-static-networking
;; The loopback device.
(static-networking
(addresses (list (network-address
(device "lo")
(value "127.0.0.1"))))
(requirement '())
(provision '(loopback))))
(define %qemu-static-networking
;; Networking configuration for QEMU's user-mode network stack (info "(QEMU)
;; Using the user mode network stack").
@ -2754,12 +2764,7 @@ (define %base-services
(tty "tty6")))
(service static-networking-service-type
(list (static-networking
(addresses (list (network-address
(device "lo")
(value "127.0.0.1"))))
(requirement '())
(provision '(loopback)))))
(list %loopback-static-networking))
(syslog-service)
(service urandom-seed-service-type)
(service guix-service-type)

8
gnu/system/hurd.scm
View file

@ -79,13 +79,7 @@ (define %base-services/hurd
(service hurd-getty-service-type (hurd-getty-configuration
(tty "tty2")))
(service static-networking-service-type
(list (static-networking
(addresses
(list (network-address
(device "lo")
(value "127.0.0.1"))))
(requirement '())
(provision '(loopback)))
(list %loopback-static-networking
;; QEMU user-mode networking. To get "eth0", you need
;; QEMU to emulate a device for which Mach has an

8
gnu/system/install.scm
View file

@ -408,13 +408,7 @@ (define bare-bones-os
;; Loopback device, needed by OpenSSH notably.
(service static-networking-service-type
(list (static-networking
(addresses
(list (network-address
(device "lo")
(value "127.0.0.1"))))
(requirement '())
(provision '(loopback)))))
(list %loopback-static-networking))
(service wpa-supplicant-service-type)
(dbus-service)