diff options
| author |  pweaver@galois.com <unknown> | 2007-10-16 19:16:31 +0000 |
|---|---|---|
| committer | pweaver@galois.com <unknown> | 2007-10-16 19:16:31 +0000 |
| commit | 85cafa73f21abf840fdcf06b33f150a9d53b2c96 (patch) | |
| tree | c12c4899b583b9539952e1261875f938f02883fd /System/Posix/Terminal.hsc | |
| parent | e72b7a399ea0cb735fdd2747174e11ca72672b26 (diff) | |
Support for 57600 and 115200 baudrates
Diffstat (limited to 'System/Posix/Terminal.hsc')
| -rw-r--r-- | System/Posix/Terminal.hsc | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/System/Posix/Terminal.hsc b/System/Posix/Terminal.hsc index 414d698..8178d74 100644 --- a/System/Posix/Terminal.hsc +++ b/System/Posix/Terminal.hsc @@ -334,6 +334,8 @@ data BaudRate | B9600 | B19200 | B38400 + | B57600 + | B115200 inputSpeed :: TerminalAttributes -> BaudRate inputSpeed termios = unsafePerformIO $ do @@ -635,6 +637,8 @@ baud2Word B4800 = (#const B4800) baud2Word B9600 = (#const B9600) baud2Word B19200 = (#const B19200) baud2Word B38400 = (#const B38400) +baud2Word B57600 = (#const B57600) +baud2Word B115200 = (#const B115200) -- And convert a word back to a baud rate -- We really need some cpp macros here. @@ -657,6 +661,8 @@ word2Baud x = else if x == (#const B9600) then B9600 else if x == (#const B19200) then B19200 else if x == (#const B38400) then B38400 + else if x == (#const B57600) then B57600 + else if x == (#const B115200) then B115200 else error "unknown baud rate" -- Clear termios i_flag |