01/07: syscalls: Define 'input-flags' for 'tcgetattr' and friends.

[Ludovic Courtès]

civodul pushed a commit to branch version-0.14.0
in repository guix.

commit 45c32bd7e50adde4119b7a25b580cf3f77d5b91f
Author: Ludovic Courtès <address@hidden>
Date:   Wed Dec 6 08:51:08 2017 +0100

    syscalls: Define 'input-flags' for 'tcgetattr' and friends.
    
    * guix/build/syscalls.scm (input-flags): New macro.
---
 guix/build/syscalls.scm | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm
index e5779cb..0cb630c 100644
--- a/guix/build/syscalls.scm
+++ b/guix/build/syscalls.scm
@@ -119,6 +119,7 @@
             termios-input-speed
             termios-output-speed
             local-flags
+            input-flags
             tcsetattr-action
             tcgetattr
             tcsetattr
@@ -1704,6 +1705,24 @@ given an integer, returns the list of names of the 
constants that are or'd."
  (define IEXTEN #o0100000)
  (define EXTPROC #o0200000))
 
+(define-bits input-flags
+  input-flags->symbols
+  (define IGNBRK #o0000001)
+  (define BRKINT #o0000002)
+  (define IGNPAR #o0000004)
+  (define PARMRK #o0000010)
+  (define INPCK #o0000020)
+  (define ISTRIP #o0000040)
+  (define INLCR #o0000100)
+  (define IGNCR #o0000200)
+  (define ICRNL #o0000400)
+  (define IUCLC #o0001000)
+  (define IXON #o0002000)
+  (define IXANY #o0004000)
+  (define IXOFF #o0010000)
+  (define IMAXBEL #o0020000)
+  (define IUTF8 #o0040000))
+
 ;; "Actions" values for 'tcsetattr'.
 (define-bits tcsetattr-action
   %unused-tcsetattr-action->symbols