aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-12-06 08:51:08 +0100
committerLudovic Courtès <ludo@gnu.org>2017-12-06 08:51:08 +0100
commit45c32bd7e50adde4119b7a25b580cf3f77d5b91f (patch)
tree09facb41ad63b6795801acc323a619b412943d38
parent614f8cc1c3e0065bff2de9e7ab625d710a94ffd4 (diff)
downloadguix-45c32bd7e50adde4119b7a25b580cf3f77d5b91f.tar
guix-45c32bd7e50adde4119b7a25b580cf3f77d5b91f.tar.gz
syscalls: Define 'input-flags' for 'tcgetattr' and friends.
* guix/build/syscalls.scm (input-flags): New macro.
-rw-r--r--guix/build/syscalls.scm19
1 files changed, 19 insertions, 0 deletions
diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm
index e5779cbd0b..0cb630cfb3 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