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

* guix/build/syscalls.scm (input-flags): New macro.
This commit is contained in:
Ludovic Courtès 2017-12-06 08:51:08 +01:00
parent 614f8cc1c3
commit 45c32bd7e5
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -119,6 +119,7 @@ (define-module (guix build syscalls)
termios-input-speed termios-input-speed
termios-output-speed termios-output-speed
local-flags local-flags
input-flags
tcsetattr-action tcsetattr-action
tcgetattr tcgetattr
tcsetattr tcsetattr
@ -1704,6 +1705,24 @@ (define PENDIN #o0040000)
(define IEXTEN #o0100000) (define IEXTEN #o0100000)
(define EXTPROC #o0200000)) (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'. ;; "Actions" values for 'tcsetattr'.
(define-bits tcsetattr-action (define-bits tcsetattr-action
%unused-tcsetattr-action->symbols %unused-tcsetattr-action->symbols