mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-11-16 03:45:24 -05:00
syscalls: Define 'input-flags' for 'tcgetattr' and friends.
* guix/build/syscalls.scm (input-flags): New macro.
This commit is contained in:
parent
614f8cc1c3
commit
45c32bd7e5
1 changed files with 19 additions and 0 deletions
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue