CONSTANT: TCION 3
! iflag
-CONSTANT: IGNBRK OCT: 0000001
-CONSTANT: BRKINT OCT: 0000002
-CONSTANT: IGNPAR OCT: 0000004
-CONSTANT: PARMRK OCT: 0000010
-CONSTANT: INPCK OCT: 0000020
-CONSTANT: ISTRIP OCT: 0000040
-CONSTANT: INLCR OCT: 0000100
-CONSTANT: IGNCR OCT: 0000200
-CONSTANT: ICRNL OCT: 0000400
-CONSTANT: IUCLC OCT: 0001000
-CONSTANT: IXON OCT: 0002000
-CONSTANT: IXANY OCT: 0004000
-CONSTANT: IXOFF OCT: 0010000
-CONSTANT: IMAXBEL OCT: 0020000
-CONSTANT: IUTF8 OCT: 0040000
+CONSTANT: IGNBRK 0o0000001
+CONSTANT: BRKINT 0o0000002
+CONSTANT: IGNPAR 0o0000004
+CONSTANT: PARMRK 0o0000010
+CONSTANT: INPCK 0o0000020
+CONSTANT: ISTRIP 0o0000040
+CONSTANT: INLCR 0o0000100
+CONSTANT: IGNCR 0o0000200
+CONSTANT: ICRNL 0o0000400
+CONSTANT: IUCLC 0o0001000
+CONSTANT: IXON 0o0002000
+CONSTANT: IXANY 0o0004000
+CONSTANT: IXOFF 0o0010000
+CONSTANT: IMAXBEL 0o0020000
+CONSTANT: IUTF8 0o0040000
! oflag
-CONSTANT: OPOST OCT: 0000001
-CONSTANT: OLCUC OCT: 0000002
-CONSTANT: ONLCR OCT: 0000004
-CONSTANT: OCRNL OCT: 0000010
-CONSTANT: ONOCR OCT: 0000020
-CONSTANT: ONLRET OCT: 0000040
-CONSTANT: OFILL OCT: 0000100
-CONSTANT: OFDEL OCT: 0000200
-CONSTANT: NLDLY OCT: 0000400
-CONSTANT: NL0 OCT: 0000000
-CONSTANT: NL1 OCT: 0000400
-CONSTANT: CRDLY OCT: 0003000
-CONSTANT: CR0 OCT: 0000000
-CONSTANT: CR1 OCT: 0001000
-CONSTANT: CR2 OCT: 0002000
-CONSTANT: CR3 OCT: 0003000
-CONSTANT: TABDLY OCT: 0014000
-CONSTANT: TAB0 OCT: 0000000
-CONSTANT: TAB1 OCT: 0004000
-CONSTANT: TAB2 OCT: 0010000
-CONSTANT: TAB3 OCT: 0014000
-CONSTANT: BSDLY OCT: 0020000
-CONSTANT: BS0 OCT: 0000000
-CONSTANT: BS1 OCT: 0020000
-CONSTANT: FFDLY OCT: 0100000
-CONSTANT: FF0 OCT: 0000000
-CONSTANT: FF1 OCT: 0100000
+CONSTANT: OPOST 0o0000001
+CONSTANT: OLCUC 0o0000002
+CONSTANT: ONLCR 0o0000004
+CONSTANT: OCRNL 0o0000010
+CONSTANT: ONOCR 0o0000020
+CONSTANT: ONLRET 0o0000040
+CONSTANT: OFILL 0o0000100
+CONSTANT: OFDEL 0o0000200
+CONSTANT: NLDLY 0o0000400
+CONSTANT: NL0 0o0000000
+CONSTANT: NL1 0o0000400
+CONSTANT: CRDLY 0o0003000
+CONSTANT: CR0 0o0000000
+CONSTANT: CR1 0o0001000
+CONSTANT: CR2 0o0002000
+CONSTANT: CR3 0o0003000
+CONSTANT: TABDLY 0o0014000
+CONSTANT: TAB0 0o0000000
+CONSTANT: TAB1 0o0004000
+CONSTANT: TAB2 0o0010000
+CONSTANT: TAB3 0o0014000
+CONSTANT: BSDLY 0o0020000
+CONSTANT: BS0 0o0000000
+CONSTANT: BS1 0o0020000
+CONSTANT: FFDLY 0o0100000
+CONSTANT: FF0 0o0000000
+CONSTANT: FF1 0o0100000
! cflags
-CONSTANT: CSIZE OCT: 0000060
-CONSTANT: CS5 OCT: 0000000
-CONSTANT: CS6 OCT: 0000020
-CONSTANT: CS7 OCT: 0000040
-CONSTANT: CS8 OCT: 0000060
-CONSTANT: CSTOPB OCT: 0000100
-CONSTANT: CREAD OCT: 0000200
-CONSTANT: PARENB OCT: 0000400
-CONSTANT: PARODD OCT: 0001000
-CONSTANT: HUPCL OCT: 0002000
-CONSTANT: CLOCAL OCT: 0004000
-CONSTANT: CIBAUD OCT: 002003600000
-CONSTANT: CRTSCTS OCT: 020000000000
+CONSTANT: CSIZE 0o0000060
+CONSTANT: CS5 0o0000000
+CONSTANT: CS6 0o0000020
+CONSTANT: CS7 0o0000040
+CONSTANT: CS8 0o0000060
+CONSTANT: CSTOPB 0o0000100
+CONSTANT: CREAD 0o0000200
+CONSTANT: PARENB 0o0000400
+CONSTANT: PARODD 0o0001000
+CONSTANT: HUPCL 0o0002000
+CONSTANT: CLOCAL 0o0004000
+CONSTANT: CIBAUD 0o002003600000
+CONSTANT: CRTSCTS 0o020000000000
! lflags
-CONSTANT: ISIG OCT: 0000001
-CONSTANT: ICANON OCT: 0000002
-CONSTANT: XCASE OCT: 0000004
-CONSTANT: ECHO OCT: 0000010
-CONSTANT: ECHOE OCT: 0000020
-CONSTANT: ECHOK OCT: 0000040
-CONSTANT: ECHONL OCT: 0000100
-CONSTANT: NOFLSH OCT: 0000200
-CONSTANT: TOSTOP OCT: 0000400
-CONSTANT: ECHOCTL OCT: 0001000
-CONSTANT: ECHOPRT OCT: 0002000
-CONSTANT: ECHOKE OCT: 0004000
-CONSTANT: FLUSHO OCT: 0010000
-CONSTANT: PENDIN OCT: 0040000
-CONSTANT: IEXTEN OCT: 0100000
+CONSTANT: ISIG 0o0000001
+CONSTANT: ICANON 0o0000002
+CONSTANT: XCASE 0o0000004
+CONSTANT: ECHO 0o0000010
+CONSTANT: ECHOE 0o0000020
+CONSTANT: ECHOK 0o0000040
+CONSTANT: ECHONL 0o0000100
+CONSTANT: NOFLSH 0o0000200
+CONSTANT: TOSTOP 0o0000400
+CONSTANT: ECHOCTL 0o0001000
+CONSTANT: ECHOPRT 0o0002000
+CONSTANT: ECHOKE 0o0004000
+CONSTANT: FLUSHO 0o0010000
+CONSTANT: PENDIN 0o0040000
+CONSTANT: IEXTEN 0o0100000
M: linux lookup-baud ( n -- n )
H{
- { 0 OCT: 0000000 }
- { 50 OCT: 0000001 }
- { 75 OCT: 0000002 }
- { 110 OCT: 0000003 }
- { 134 OCT: 0000004 }
- { 150 OCT: 0000005 }
- { 200 OCT: 0000006 }
- { 300 OCT: 0000007 }
- { 600 OCT: 0000010 }
- { 1200 OCT: 0000011 }
- { 1800 OCT: 0000012 }
- { 2400 OCT: 0000013 }
- { 4800 OCT: 0000014 }
- { 9600 OCT: 0000015 }
- { 19200 OCT: 0000016 }
- { 38400 OCT: 0000017 }
- { 57600 OCT: 0010001 }
- { 115200 OCT: 0010002 }
- { 230400 OCT: 0010003 }
- { 460800 OCT: 0010004 }
- { 500000 OCT: 0010005 }
- { 576000 OCT: 0010006 }
- { 921600 OCT: 0010007 }
- { 1000000 OCT: 0010010 }
- { 1152000 OCT: 0010011 }
- { 1500000 OCT: 0010012 }
- { 2000000 OCT: 0010013 }
- { 2500000 OCT: 0010014 }
- { 3000000 OCT: 0010015 }
- { 3500000 OCT: 0010016 }
- { 4000000 OCT: 0010017 }
+ { 0 0o0000000 }
+ { 50 0o0000001 }
+ { 75 0o0000002 }
+ { 110 0o0000003 }
+ { 134 0o0000004 }
+ { 150 0o0000005 }
+ { 200 0o0000006 }
+ { 300 0o0000007 }
+ { 600 0o0000010 }
+ { 1200 0o0000011 }
+ { 1800 0o0000012 }
+ { 2400 0o0000013 }
+ { 4800 0o0000014 }
+ { 9600 0o0000015 }
+ { 19200 0o0000016 }
+ { 38400 0o0000017 }
+ { 57600 0o0010001 }
+ { 115200 0o0010002 }
+ { 230400 0o0010003 }
+ { 460800 0o0010004 }
+ { 500000 0o0010005 }
+ { 576000 0o0010006 }
+ { 921600 0o0010007 }
+ { 1000000 0o0010010 }
+ { 1152000 0o0010011 }
+ { 1500000 0o0010012 }
+ { 2000000 0o0010013 }
+ { 2500000 0o0010014 }
+ { 3000000 0o0010015 }
+ { 3500000 0o0010016 }
+ { 4000000 0o0010017 }
} ?at [ invalid-baud ] unless ;