Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
Bernd Paysan
bigforth
Commits
71a3891e
Verified
Commit
71a3891e
authored
Jan 06, 2016
by
Bernd Paysan
Browse files
Fix serial.fs
parent
e9ae5033
Changes
1
Hide whitespace changes
Inline
Side-by-side
serial.fs
View file @
71a3891e
...
...
@@ -64,8 +64,8 @@
Create
t_buf
sizeof
DCB
allot
Create
tout_buf
sizeof
COMMTIMEOUTS
allot
:
file
no
(
file
--
fd
)
filehandle
@
;
:
set
-
baud
(
baud
file
--
)
file
no
>
r
:
file
#
(
file
--
fd
)
filehandle
@
;
:
set
-
baud
(
baud
file
--
)
file
#
>
r
r
@
t_old
GetCommState
drop
1
t_old
DCB
flags
!
r
@
tout_buf
GetCommTimeouts
drop
...
...
@@ -80,7 +80,7 @@
8
t_buf
DCB
ByteSize
c
!
r
>
t_buf
SetCommState
drop
;
:
reset
-
baud
(
file
--
)
file
no
t_old
SetCommState
drop
;
file
#
t_old
SetCommState
drop
;
[
ELSE
]
also
DOS
also
legacy
on
...
...
@@ -198,8 +198,8 @@
$
541
B
Constant
FIONREAD
[
THEN
]
:
file
no
(
file
--
fd
)
filehandle
@
;
:
set
-
baud
(
baud
fd
--
)
file
no
>
r
:
file
#
(
file
--
fd
)
filehandle
@
;
:
set
-
baud
(
baud
fd
--
)
file
#
>
r
t_old
r
@
tcgetattr
drop
t_old
t_buf
sizeof
termios
move
\
t_buf
sizeof
termios
erase
...
...
@@ -217,9 +217,9 @@
t_buf
1
r
>
tcsetattr
drop
;
:
reset
-
baud
(
fd
--
)
file
no
t_old
1
rot
tcsetattr
drop
;
file
#
t_old
1
rot
tcsetattr
drop
;
:
check
-
read
(
fd
--
n
)
file
no
>
r
:
check
-
read
(
fd
--
n
)
file
#
>
r
0
sp
@
FIONREAD
r
>
ioctl
drop
;
previous
previous
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment