01/02: syscalls: Add ioctl flags for the Hurd.

[guix-commits]

janneke pushed a commit to branch wip-hurd-vm
in repository guix.

commit e9411ffdb13c60ad21195f8c780ab5c5d57cba09
Author: Jan (janneke) Nieuwenhuizen <address@hidden>
AuthorDate: Wed May 6 18:18:45 2020 +0200

    syscalls: Add ioctl flags for the Hurd.
    
    Use
    
        #include <stdio.h>
        #include <net/if.h>
        #include <hurd/ioctl.h>
    
        int
        main ()
        {
          printf ("SIOCSIFFLAGS #x%x\n", SIOCSIFFLAGS);
          printf ("SIOCGIFADDR #x%x\n", SIOCGIFADDR);
          printf ("SIOCSIFADDR #x%x\n", SIOCSIFADDR);
          printf ("SIOCGIFNETMASK #x%x\n", SIOCGIFNETMASK);
          printf ("SIOCSIFNETMASK #x%x\n", SIOCSIFNETMASK);
        #if 0
          printf ("SIOCADDRT #x%x\n", SIOCADDRT);
          printf ("SIOCDELRT #x%x\n", SIOCDELRT);
        #endif
        }
    
    to fill in some blanks.  Adding and removing route apparently not supported.
    
    * guix/build/syscalls.scm (SIOCSIFFLAGS SIOCGIFADDR, SIOCSIFADDR,
    SIOCGIFNETMASK, SIOCSIFNETMASK):
---
 guix/build/syscalls.scm | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm
index 00d8ceb..4ee2b97 100644
--- a/guix/build/syscalls.scm
+++ b/guix/build/syscalls.scm
@@ -5,6 +5,7 @@
 ;;; Copyright © 2017 Mathieu Othacehe <address@hidden>
 ;;; Copyright © 2019 Guillaume Le Vaillant <address@hidden>
 ;;; Copyright © 2020 Julien Lepiller <address@hidden>
+;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -1205,6 +1206,8 @@ bytes."
 ;;;
 
 (define SIOCGIFCONF                               ;from <bits/ioctls.h>
+                                                  ;     <net/if.h>
+                                                  ;     <hurd/ioctl.h>
   (if (string-contains %host-type "linux")
       #x8912                                      ;GNU/Linux
       #xf00801a4))                                ;GNU/Hurd
@@ -1215,23 +1218,23 @@ bytes."
 (define SIOCSIFFLAGS
   (if (string-contains %host-type "linux")
       #x8914                                      ;GNU/Linux
-      -1))                                        ;FIXME: GNU/Hurd?
+      #x84804190))                                ;GNU/Hurd
 (define SIOCGIFADDR
   (if (string-contains %host-type "linux")
       #x8915                                      ;GNU/Linux
-      -1))                                        ;FIXME: GNU/Hurd?
+      #xc08401a1))                                ;GNU/Hurd
 (define SIOCSIFADDR
   (if (string-contains %host-type "linux")
       #x8916                                      ;GNU/Linux
-      -1))                                        ;FIXME: GNU/Hurd?
+      #x8084018c))                                ;GNU/Hurd
 (define SIOCGIFNETMASK
   (if (string-contains %host-type "linux")
       #x891b                                      ;GNU/Linux
-      -1))                                        ;FIXME: GNU/Hurd?
+      #xc08401a5))                                ;GNU/Hurd
 (define SIOCSIFNETMASK
   (if (string-contains %host-type "linux")
       #x891c                                      ;GNU/Linux
-      -1))                                        ;FIXME: GNU/Hurd?
+      #x80840196))                                ;GNU/Hurd
 (define SIOCADDRT
   (if (string-contains %host-type "linux")
       #x890B                                      ;GNU/Linux