![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to terminal.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / arch / r8c|
Return to terminal.fs CVS log | Up to [gforth] / gforth / arch / r8c |
| version 1.4, 2006/04/02 22:16:30 | version 1.5, 2006/04/02 22:38:25 |
|---|---|
| Line 174 s" os-type" environment? [IF] | Line 174 s" os-type" environment? [IF] |
| r@ tout_buf SetCommTimeouts drop | r@ tout_buf SetCommTimeouts drop |
| t_old t_buf DCB %size move | t_old t_buf DCB %size move |
| t_buf BaudRate ! | t_buf BaudRate ! |
| 8 t_buf ByteSize c! | |
| r> t_buf SetCommState drop ; | r> t_buf SetCommState drop ; |
| : reset-baud ( fd -- ) | : reset-baud ( fd -- ) |
| t_old SetCommState drop ; | t_old SetCommState drop ; |