ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-15 19:35:25 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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
1 changed files with 19 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
guix/build/syscalls.scm
View file

@ -119,6 +119,7 @@ (define-module (guix build syscalls)
termios-input-speed
termios-output-speed
local-flags
input-flags
tcsetattr-action
tcgetattr
tcsetattr
@ -1704,6 +1705,24 @@ (define PENDIN #o0040000)
(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