use CONSTANT: in lots of places
Doug Coleman
parent
d0030ba899
commit
0ccb04e50f
|
|
@ -10,77 +10,77 @@ M: bsd lookup-baud ( m -- n )
|
||||||
230400 460800 921600
|
230400 460800 921600
|
||||||
} member? [ invalid-baud ] unless ;
|
} member? [ invalid-baud ] unless ;
|
||||||
|
|
||||||
: TCSANOW 0 ; inline
|
CONSTANT: TCSANOW 0
|
||||||
: TCSADRAIN 1 ; inline
|
CONSTANT: TCSADRAIN 1
|
||||||
: TCSAFLUSH 2 ; inline
|
CONSTANT: TCSAFLUSH 2
|
||||||
: TCSASOFT HEX: 10 ; inline
|
CONSTANT: TCSASOFT HEX: 10
|
||||||
|
|
||||||
: TCIFLUSH 1 ; inline
|
CONSTANT: TCIFLUSH 1
|
||||||
: TCOFLUSH 2 ; inline
|
CONSTANT: TCOFLUSH 2
|
||||||
: TCIOFLUSH 3 ; inline
|
CONSTANT: TCIOFLUSH 3
|
||||||
: TCOOFF 1 ; inline
|
CONSTANT: TCOOFF 1
|
||||||
: TCOON 2 ; inline
|
CONSTANT: TCOON 2
|
||||||
: TCIOFF 3 ; inline
|
CONSTANT: TCIOFF 3
|
||||||
: TCION 4 ; inline
|
CONSTANT: TCION 4
|
||||||
|
|
||||||
! iflags
|
! iflags
|
||||||
: IGNBRK HEX: 00000001 ; inline
|
CONSTANT: IGNBRK HEX: 00000001
|
||||||
: BRKINT HEX: 00000002 ; inline
|
CONSTANT: BRKINT HEX: 00000002
|
||||||
: IGNPAR HEX: 00000004 ; inline
|
CONSTANT: IGNPAR HEX: 00000004
|
||||||
: PARMRK HEX: 00000008 ; inline
|
CONSTANT: PARMRK HEX: 00000008
|
||||||
: INPCK HEX: 00000010 ; inline
|
CONSTANT: INPCK HEX: 00000010
|
||||||
: ISTRIP HEX: 00000020 ; inline
|
CONSTANT: ISTRIP HEX: 00000020
|
||||||
: INLCR HEX: 00000040 ; inline
|
CONSTANT: INLCR HEX: 00000040
|
||||||
: IGNCR HEX: 00000080 ; inline
|
CONSTANT: IGNCR HEX: 00000080
|
||||||
: ICRNL HEX: 00000100 ; inline
|
CONSTANT: ICRNL HEX: 00000100
|
||||||
: IXON HEX: 00000200 ; inline
|
CONSTANT: IXON HEX: 00000200
|
||||||
: IXOFF HEX: 00000400 ; inline
|
CONSTANT: IXOFF HEX: 00000400
|
||||||
: IXANY HEX: 00000800 ; inline
|
CONSTANT: IXANY HEX: 00000800
|
||||||
: IMAXBEL HEX: 00002000 ; inline
|
CONSTANT: IMAXBEL HEX: 00002000
|
||||||
: IUTF8 HEX: 00004000 ; inline
|
CONSTANT: IUTF8 HEX: 00004000
|
||||||
|
|
||||||
! oflags
|
! oflags
|
||||||
: OPOST HEX: 00000001 ; inline
|
CONSTANT: OPOST HEX: 00000001
|
||||||
: ONLCR HEX: 00000002 ; inline
|
CONSTANT: ONLCR HEX: 00000002
|
||||||
: OXTABS HEX: 00000004 ; inline
|
CONSTANT: OXTABS HEX: 00000004
|
||||||
: ONOEOT HEX: 00000008 ; inline
|
CONSTANT: ONOEOT HEX: 00000008
|
||||||
|
|
||||||
! cflags
|
! cflags
|
||||||
: CIGNORE HEX: 00000001 ; inline
|
CONSTANT: CIGNORE HEX: 00000001
|
||||||
: CSIZE HEX: 00000300 ; inline
|
CONSTANT: CSIZE HEX: 00000300
|
||||||
: CS5 HEX: 00000000 ; inline
|
CONSTANT: CS5 HEX: 00000000
|
||||||
: CS6 HEX: 00000100 ; inline
|
CONSTANT: CS6 HEX: 00000100
|
||||||
: CS7 HEX: 00000200 ; inline
|
CONSTANT: CS7 HEX: 00000200
|
||||||
: CS8 HEX: 00000300 ; inline
|
CONSTANT: CS8 HEX: 00000300
|
||||||
: CSTOPB HEX: 00000400 ; inline
|
CONSTANT: CSTOPB HEX: 00000400
|
||||||
: CREAD HEX: 00000800 ; inline
|
CONSTANT: CREAD HEX: 00000800
|
||||||
: PARENB HEX: 00001000 ; inline
|
CONSTANT: PARENB HEX: 00001000
|
||||||
: PARODD HEX: 00002000 ; inline
|
CONSTANT: PARODD HEX: 00002000
|
||||||
: HUPCL HEX: 00004000 ; inline
|
CONSTANT: HUPCL HEX: 00004000
|
||||||
: CLOCAL HEX: 00008000 ; inline
|
CONSTANT: CLOCAL HEX: 00008000
|
||||||
: CCTS_OFLOW HEX: 00010000 ; inline
|
CONSTANT: CCTS_OFLOW HEX: 00010000
|
||||||
: CRTS_IFLOW HEX: 00020000 ; inline
|
CONSTANT: CRTS_IFLOW HEX: 00020000
|
||||||
: CRTSCTS { CCTS_OFLOW CRTS_IFLOW } flags ; inline
|
: CRTSCTS ( -- n ) { CCTS_OFLOW CRTS_IFLOW } flags ; inline
|
||||||
: CDTR_IFLOW HEX: 00040000 ; inline
|
CONSTANT: CDTR_IFLOW HEX: 00040000
|
||||||
: CDSR_OFLOW HEX: 00080000 ; inline
|
CONSTANT: CDSR_OFLOW HEX: 00080000
|
||||||
: CCAR_OFLOW HEX: 00100000 ; inline
|
CONSTANT: CCAR_OFLOW HEX: 00100000
|
||||||
: MDMBUF HEX: 00100000 ; inline
|
CONSTANT: MDMBUF HEX: 00100000
|
||||||
|
|
||||||
! lflags
|
! lflags
|
||||||
: ECHOKE HEX: 00000001 ; inline
|
CONSTANT: ECHOKE HEX: 00000001
|
||||||
: ECHOE HEX: 00000002 ; inline
|
CONSTANT: ECHOE HEX: 00000002
|
||||||
: ECHOK HEX: 00000004 ; inline
|
CONSTANT: ECHOK HEX: 00000004
|
||||||
: ECHO HEX: 00000008 ; inline
|
CONSTANT: ECHO HEX: 00000008
|
||||||
: ECHONL HEX: 00000010 ; inline
|
CONSTANT: ECHONL HEX: 00000010
|
||||||
: ECHOPRT HEX: 00000020 ; inline
|
CONSTANT: ECHOPRT HEX: 00000020
|
||||||
: ECHOCTL HEX: 00000040 ; inline
|
CONSTANT: ECHOCTL HEX: 00000040
|
||||||
: ISIG HEX: 00000080 ; inline
|
CONSTANT: ISIG HEX: 00000080
|
||||||
: ICANON HEX: 00000100 ; inline
|
CONSTANT: ICANON HEX: 00000100
|
||||||
: ALTWERASE HEX: 00000200 ; inline
|
CONSTANT: ALTWERASE HEX: 00000200
|
||||||
: IEXTEN HEX: 00000400 ; inline
|
CONSTANT: IEXTEN HEX: 00000400
|
||||||
: EXTPROC HEX: 00000800 ; inline
|
CONSTANT: EXTPROC HEX: 00000800
|
||||||
: TOSTOP HEX: 00400000 ; inline
|
CONSTANT: TOSTOP HEX: 00400000
|
||||||
: FLUSHO HEX: 00800000 ; inline
|
CONSTANT: FLUSHO HEX: 00800000
|
||||||
: NOKERNINFO HEX: 02000000 ; inline
|
CONSTANT: NOKERNINFO HEX: 02000000
|
||||||
: PENDIN HEX: 20000000 ; inline
|
CONSTANT: PENDIN HEX: 20000000
|
||||||
: NOFLSH HEX: 80000000 ; inline
|
CONSTANT: NOFLSH HEX: 80000000
|
||||||
|
|
|
||||||
|
|
@ -3,96 +3,96 @@
|
||||||
USING: assocs alien.syntax kernel serial system unix ;
|
USING: assocs alien.syntax kernel serial system unix ;
|
||||||
IN: serial.unix
|
IN: serial.unix
|
||||||
|
|
||||||
: TCSANOW 0 ; inline
|
CONSTANT: TCSANOW 0
|
||||||
: TCSADRAIN 1 ; inline
|
CONSTANT: TCSADRAIN 1
|
||||||
: TCSAFLUSH 2 ; inline
|
CONSTANT: TCSAFLUSH 2
|
||||||
|
|
||||||
: TCIFLUSH 0 ; inline
|
CONSTANT: TCIFLUSH 0
|
||||||
: TCOFLUSH 1 ; inline
|
CONSTANT: TCOFLUSH 1
|
||||||
: TCIOFLUSH 2 ; inline
|
CONSTANT: TCIOFLUSH 2
|
||||||
|
|
||||||
: TCOOFF 0 ; inline
|
CONSTANT: TCOOFF 0
|
||||||
: TCOON 1 ; inline
|
CONSTANT: TCOON 1
|
||||||
: TCIOFF 2 ; inline
|
CONSTANT: TCIOFF 2
|
||||||
: TCION 3 ; inline
|
CONSTANT: TCION 3
|
||||||
|
|
||||||
! iflag
|
! iflag
|
||||||
: IGNBRK OCT: 0000001 ; inline
|
CONSTANT: IGNBRK OCT: 0000001
|
||||||
: BRKINT OCT: 0000002 ; inline
|
CONSTANT: BRKINT OCT: 0000002
|
||||||
: IGNPAR OCT: 0000004 ; inline
|
CONSTANT: IGNPAR OCT: 0000004
|
||||||
: PARMRK OCT: 0000010 ; inline
|
CONSTANT: PARMRK OCT: 0000010
|
||||||
: INPCK OCT: 0000020 ; inline
|
CONSTANT: INPCK OCT: 0000020
|
||||||
: ISTRIP OCT: 0000040 ; inline
|
CONSTANT: ISTRIP OCT: 0000040
|
||||||
: INLCR OCT: 0000100 ; inline
|
CONSTANT: INLCR OCT: 0000100
|
||||||
: IGNCR OCT: 0000200 ; inline
|
CONSTANT: IGNCR OCT: 0000200
|
||||||
: ICRNL OCT: 0000400 ; inline
|
CONSTANT: ICRNL OCT: 0000400
|
||||||
: IUCLC OCT: 0001000 ; inline
|
CONSTANT: IUCLC OCT: 0001000
|
||||||
: IXON OCT: 0002000 ; inline
|
CONSTANT: IXON OCT: 0002000
|
||||||
: IXANY OCT: 0004000 ; inline
|
CONSTANT: IXANY OCT: 0004000
|
||||||
: IXOFF OCT: 0010000 ; inline
|
CONSTANT: IXOFF OCT: 0010000
|
||||||
: IMAXBEL OCT: 0020000 ; inline
|
CONSTANT: IMAXBEL OCT: 0020000
|
||||||
: IUTF8 OCT: 0040000 ; inline
|
CONSTANT: IUTF8 OCT: 0040000
|
||||||
|
|
||||||
! oflag
|
! oflag
|
||||||
: OPOST OCT: 0000001 ; inline
|
CONSTANT: OPOST OCT: 0000001
|
||||||
: OLCUC OCT: 0000002 ; inline
|
CONSTANT: OLCUC OCT: 0000002
|
||||||
: ONLCR OCT: 0000004 ; inline
|
CONSTANT: ONLCR OCT: 0000004
|
||||||
: OCRNL OCT: 0000010 ; inline
|
CONSTANT: OCRNL OCT: 0000010
|
||||||
: ONOCR OCT: 0000020 ; inline
|
CONSTANT: ONOCR OCT: 0000020
|
||||||
: ONLRET OCT: 0000040 ; inline
|
CONSTANT: ONLRET OCT: 0000040
|
||||||
: OFILL OCT: 0000100 ; inline
|
CONSTANT: OFILL OCT: 0000100
|
||||||
: OFDEL OCT: 0000200 ; inline
|
CONSTANT: OFDEL OCT: 0000200
|
||||||
: NLDLY OCT: 0000400 ; inline
|
CONSTANT: NLDLY OCT: 0000400
|
||||||
: NL0 OCT: 0000000 ; inline
|
CONSTANT: NL0 OCT: 0000000
|
||||||
: NL1 OCT: 0000400 ; inline
|
CONSTANT: NL1 OCT: 0000400
|
||||||
: CRDLY OCT: 0003000 ; inline
|
CONSTANT: CRDLY OCT: 0003000
|
||||||
: CR0 OCT: 0000000 ; inline
|
CONSTANT: CR0 OCT: 0000000
|
||||||
: CR1 OCT: 0001000 ; inline
|
CONSTANT: CR1 OCT: 0001000
|
||||||
: CR2 OCT: 0002000 ; inline
|
CONSTANT: CR2 OCT: 0002000
|
||||||
: CR3 OCT: 0003000 ; inline
|
CONSTANT: CR3 OCT: 0003000
|
||||||
: TABDLY OCT: 0014000 ; inline
|
CONSTANT: TABDLY OCT: 0014000
|
||||||
: TAB0 OCT: 0000000 ; inline
|
CONSTANT: TAB0 OCT: 0000000
|
||||||
: TAB1 OCT: 0004000 ; inline
|
CONSTANT: TAB1 OCT: 0004000
|
||||||
: TAB2 OCT: 0010000 ; inline
|
CONSTANT: TAB2 OCT: 0010000
|
||||||
: TAB3 OCT: 0014000 ; inline
|
CONSTANT: TAB3 OCT: 0014000
|
||||||
: BSDLY OCT: 0020000 ; inline
|
CONSTANT: BSDLY OCT: 0020000
|
||||||
: BS0 OCT: 0000000 ; inline
|
CONSTANT: BS0 OCT: 0000000
|
||||||
: BS1 OCT: 0020000 ; inline
|
CONSTANT: BS1 OCT: 0020000
|
||||||
: FFDLY OCT: 0100000 ; inline
|
CONSTANT: FFDLY OCT: 0100000
|
||||||
: FF0 OCT: 0000000 ; inline
|
CONSTANT: FF0 OCT: 0000000
|
||||||
: FF1 OCT: 0100000 ; inline
|
CONSTANT: FF1 OCT: 0100000
|
||||||
|
|
||||||
! cflags
|
! cflags
|
||||||
: CSIZE OCT: 0000060 ; inline
|
CONSTANT: CSIZE OCT: 0000060
|
||||||
: CS5 OCT: 0000000 ; inline
|
CONSTANT: CS5 OCT: 0000000
|
||||||
: CS6 OCT: 0000020 ; inline
|
CONSTANT: CS6 OCT: 0000020
|
||||||
: CS7 OCT: 0000040 ; inline
|
CONSTANT: CS7 OCT: 0000040
|
||||||
: CS8 OCT: 0000060 ; inline
|
CONSTANT: CS8 OCT: 0000060
|
||||||
: CSTOPB OCT: 0000100 ; inline
|
CONSTANT: CSTOPB OCT: 0000100
|
||||||
: CREAD OCT: 0000200 ; inline
|
CONSTANT: CREAD OCT: 0000200
|
||||||
: PARENB OCT: 0000400 ; inline
|
CONSTANT: PARENB OCT: 0000400
|
||||||
: PARODD OCT: 0001000 ; inline
|
CONSTANT: PARODD OCT: 0001000
|
||||||
: HUPCL OCT: 0002000 ; inline
|
CONSTANT: HUPCL OCT: 0002000
|
||||||
: CLOCAL OCT: 0004000 ; inline
|
CONSTANT: CLOCAL OCT: 0004000
|
||||||
: CIBAUD OCT: 002003600000 ; inline
|
CONSTANT: CIBAUD OCT: 002003600000
|
||||||
: CRTSCTS OCT: 020000000000 ; inline
|
CONSTANT: CRTSCTS OCT: 020000000000
|
||||||
|
|
||||||
! lflags
|
! lflags
|
||||||
: ISIG OCT: 0000001 ; inline
|
CONSTANT: ISIG OCT: 0000001
|
||||||
: ICANON OCT: 0000002 ; inline
|
CONSTANT: ICANON OCT: 0000002
|
||||||
: XCASE OCT: 0000004 ; inline
|
CONSTANT: XCASE OCT: 0000004
|
||||||
: ECHO OCT: 0000010 ; inline
|
CONSTANT: ECHO OCT: 0000010
|
||||||
: ECHOE OCT: 0000020 ; inline
|
CONSTANT: ECHOE OCT: 0000020
|
||||||
: ECHOK OCT: 0000040 ; inline
|
CONSTANT: ECHOK OCT: 0000040
|
||||||
: ECHONL OCT: 0000100 ; inline
|
CONSTANT: ECHONL OCT: 0000100
|
||||||
: NOFLSH OCT: 0000200 ; inline
|
CONSTANT: NOFLSH OCT: 0000200
|
||||||
: TOSTOP OCT: 0000400 ; inline
|
CONSTANT: TOSTOP OCT: 0000400
|
||||||
: ECHOCTL OCT: 0001000 ; inline
|
CONSTANT: ECHOCTL OCT: 0001000
|
||||||
: ECHOPRT OCT: 0002000 ; inline
|
CONSTANT: ECHOPRT OCT: 0002000
|
||||||
: ECHOKE OCT: 0004000 ; inline
|
CONSTANT: ECHOKE OCT: 0004000
|
||||||
: FLUSHO OCT: 0010000 ; inline
|
CONSTANT: FLUSHO OCT: 0010000
|
||||||
: PENDIN OCT: 0040000 ; inline
|
CONSTANT: PENDIN OCT: 0040000
|
||||||
: IEXTEN OCT: 0100000 ; inline
|
CONSTANT: IEXTEN OCT: 0100000
|
||||||
|
|
||||||
M: linux lookup-baud ( n -- n )
|
M: linux lookup-baud ( n -- n )
|
||||||
dup H{
|
dup H{
|
||||||
|
|
@ -127,4 +127,4 @@ M: linux lookup-baud ( n -- n )
|
||||||
{ 3000000 OCT: 0010015 }
|
{ 3000000 OCT: 0010015 }
|
||||||
{ 3500000 OCT: 0010016 }
|
{ 3500000 OCT: 0010016 }
|
||||||
{ 4000000 OCT: 0010017 }
|
{ 4000000 OCT: 0010017 }
|
||||||
} at* [ nip ] [ drop invalid-baud ] if ;
|
} ?at [ invalid-baud ] unless ;
|
||||||
|
|
|
||||||
|
|
@ -3,7 +3,7 @@
|
||||||
USING: alien.syntax kernel sequences system ;
|
USING: alien.syntax kernel sequences system ;
|
||||||
IN: serial.unix.termios
|
IN: serial.unix.termios
|
||||||
|
|
||||||
: NCCS 20 ; inline
|
CONSTANT: NCCS 20
|
||||||
|
|
||||||
TYPEDEF: uint tcflag_t
|
TYPEDEF: uint tcflag_t
|
||||||
TYPEDEF: uchar cc_t
|
TYPEDEF: uchar cc_t
|
||||||
|
|
|
||||||
|
|
@ -3,7 +3,7 @@
|
||||||
USING: alien.syntax kernel system unix ;
|
USING: alien.syntax kernel system unix ;
|
||||||
IN: serial.unix.termios
|
IN: serial.unix.termios
|
||||||
|
|
||||||
: NCCS 32 ; inline
|
CONSTANT: NCCS 32
|
||||||
|
|
||||||
TYPEDEF: uchar cc_t
|
TYPEDEF: uchar cc_t
|
||||||
TYPEDEF: uint speed_t
|
TYPEDEF: uint speed_t
|
||||||
|
|
|
||||||
|
|
@ -1,8 +1,8 @@
|
||||||
! Copyright (C) 2008 Doug Coleman.
|
! Copyright (C) 2008 Doug Coleman.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: accessors alien.c-types alien.syntax combinators io.ports
|
USING: accessors alien.c-types alien.syntax combinators io.ports
|
||||||
io.streams.duplex io.unix.backend system kernel math math.bitwise
|
io.streams.duplex system kernel math math.bitwise
|
||||||
vocabs.loader unix serial serial.unix.termios ;
|
vocabs.loader unix serial serial.unix.termios io.backend.unix ;
|
||||||
IN: serial.unix
|
IN: serial.unix
|
||||||
|
|
||||||
<< {
|
<< {
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue