X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Fio%2Fserial%2Flinux%2Fffi%2Fffi.factor;h=158f38aa126b25435e5eba9628f784a7221d4f32;hp=bcd0b02be91f3ab394b2b864aa261105899af6d8;hb=943596575ad294c074dfa381b70af74dba5992b1;hpb=e738c7206c32bd9b76f3cee31e950835e1b1ee24 diff --git a/extra/io/serial/linux/ffi/ffi.factor b/extra/io/serial/linux/ffi/ffi.factor index bcd0b02be9..158f38aa12 100644 --- a/extra/io/serial/linux/ffi/ffi.factor +++ b/extra/io/serial/linux/ffi/ffi.factor @@ -47,115 +47,115 @@ CONSTANT: TCIOFF 2 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 ;