1 ! Copyright (C) 2008 Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: alien.c-types alien.syntax assocs classes.struct
4 io.serial kernel system ;
5 IN: io.serial.linux.ffi
11 TYPEDEF: uint tcflag_t
23 FUNCTION: speed_t cfgetispeed ( termios* t ) ;
24 FUNCTION: speed_t cfgetospeed ( termios* t ) ;
25 FUNCTION: int cfsetispeed ( termios* t, speed_t s ) ;
26 FUNCTION: int cfsetospeed ( termios* t, speed_t s ) ;
27 FUNCTION: int tcgetattr ( int i1, termios* t ) ;
28 FUNCTION: int tcsetattr ( int i1, int i2, termios* t ) ;
29 FUNCTION: int tcdrain ( int i1 ) ;
30 FUNCTION: int tcflow ( int i1, int i2 ) ;
31 FUNCTION: int tcflush ( int i1, int i2 ) ;
32 FUNCTION: int tcsendbreak ( int i1, int i2 ) ;
33 FUNCTION: void cfmakeraw ( termios* t ) ;
34 FUNCTION: int cfsetspeed ( termios* t, speed_t s ) ;
50 CONSTANT: IGNBRK 0o0000001
51 CONSTANT: BRKINT 0o0000002
52 CONSTANT: IGNPAR 0o0000004
53 CONSTANT: PARMRK 0o0000010
54 CONSTANT: INPCK 0o0000020
55 CONSTANT: ISTRIP 0o0000040
56 CONSTANT: INLCR 0o0000100
57 CONSTANT: IGNCR 0o0000200
58 CONSTANT: ICRNL 0o0000400
59 CONSTANT: IUCLC 0o0001000
60 CONSTANT: IXON 0o0002000
61 CONSTANT: IXANY 0o0004000
62 CONSTANT: IXOFF 0o0010000
63 CONSTANT: IMAXBEL 0o0020000
64 CONSTANT: IUTF8 0o0040000
67 CONSTANT: OPOST 0o0000001
68 CONSTANT: OLCUC 0o0000002
69 CONSTANT: ONLCR 0o0000004
70 CONSTANT: OCRNL 0o0000010
71 CONSTANT: ONOCR 0o0000020
72 CONSTANT: ONLRET 0o0000040
73 CONSTANT: OFILL 0o0000100
74 CONSTANT: OFDEL 0o0000200
75 CONSTANT: NLDLY 0o0000400
76 CONSTANT: NL0 0o0000000
77 CONSTANT: NL1 0o0000400
78 CONSTANT: CRDLY 0o0003000
79 CONSTANT: CR0 0o0000000
80 CONSTANT: CR1 0o0001000
81 CONSTANT: CR2 0o0002000
82 CONSTANT: CR3 0o0003000
83 CONSTANT: TABDLY 0o0014000
84 CONSTANT: TAB0 0o0000000
85 CONSTANT: TAB1 0o0004000
86 CONSTANT: TAB2 0o0010000
87 CONSTANT: TAB3 0o0014000
88 CONSTANT: BSDLY 0o0020000
89 CONSTANT: BS0 0o0000000
90 CONSTANT: BS1 0o0020000
91 CONSTANT: FFDLY 0o0100000
92 CONSTANT: FF0 0o0000000
93 CONSTANT: FF1 0o0100000
96 CONSTANT: CSIZE 0o0000060
97 CONSTANT: CS5 0o0000000
98 CONSTANT: CS6 0o0000020
99 CONSTANT: CS7 0o0000040
100 CONSTANT: CS8 0o0000060
101 CONSTANT: CSTOPB 0o0000100
102 CONSTANT: CREAD 0o0000200
103 CONSTANT: PARENB 0o0000400
104 CONSTANT: PARODD 0o0001000
105 CONSTANT: HUPCL 0o0002000
106 CONSTANT: CLOCAL 0o0004000
107 CONSTANT: CIBAUD 0o002003600000
108 CONSTANT: CRTSCTS 0o020000000000
111 CONSTANT: ISIG 0o0000001
112 CONSTANT: ICANON 0o0000002
113 CONSTANT: XCASE 0o0000004
114 CONSTANT: ECHO 0o0000010
115 CONSTANT: ECHOE 0o0000020
116 CONSTANT: ECHOK 0o0000040
117 CONSTANT: ECHONL 0o0000100
118 CONSTANT: NOFLSH 0o0000200
119 CONSTANT: TOSTOP 0o0000400
120 CONSTANT: ECHOCTL 0o0001000
121 CONSTANT: ECHOPRT 0o0002000
122 CONSTANT: ECHOKE 0o0004000
123 CONSTANT: FLUSHO 0o0010000
124 CONSTANT: PENDIN 0o0040000
125 CONSTANT: IEXTEN 0o0100000
127 M: linux lookup-baud ( n -- n )
152 { 1000000 0o0010010 }
153 { 1152000 0o0010011 }
154 { 1500000 0o0010012 }
155 { 2000000 0o0010013 }
156 { 2500000 0o0010014 }
157 { 3000000 0o0010015 }
158 { 3500000 0o0010016 }
159 { 4000000 0o0010017 }
160 } ?at [ invalid-baud ] unless ;