extra/io/serial/linux/ffi/ffi.factor

   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
   6
   7 CONSTANT: NCCS 32
   8
   9 TYPEDEF: uchar cc_t
  10 TYPEDEF: uint speed_t
  11 TYPEDEF: uint tcflag_t
  12
  13 STRUCT: termios
  14     { iflag tcflag_t }
  15     { oflag tcflag_t }
  16     { cflag tcflag_t }
  17     { lflag tcflag_t }
  18     { line cc_t }
  19     { cc { cc_t NCCS } }
  20     { ispeed speed_t }
  21     { ospeed speed_t } ;
  22
  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 ) ;
  35
  36 CONSTANT: TCSANOW     0
  37 CONSTANT: TCSADRAIN   1
  38 CONSTANT: TCSAFLUSH   2
  39
  40 CONSTANT: TCIFLUSH    0
  41 CONSTANT: TCOFLUSH    1
  42 CONSTANT: TCIOFLUSH   2
  43
  44 CONSTANT: TCOOFF      0
  45 CONSTANT: TCOON       1
  46 CONSTANT: TCIOFF      2
  47 CONSTANT: TCION       3
  48
  49 ! iflag
  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
  65
  66 ! oflag
  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
  94
  95 ! cflags
  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
 109
 110 ! lflags
 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
 126
 127 M: linux lookup-baud ( n -- n )
 128     H{
 129         { 0       0o0000000 }
 130         { 50      0o0000001 }
 131         { 75      0o0000002 }
 132         { 110     0o0000003 }
 133         { 134     0o0000004 }
 134         { 150     0o0000005 }
 135         { 200     0o0000006 }
 136         { 300     0o0000007 }
 137         { 600     0o0000010 }
 138         { 1200    0o0000011 }
 139         { 1800    0o0000012 }
 140         { 2400    0o0000013 }
 141         { 4800    0o0000014 }
 142         { 9600    0o0000015 }
 143         { 19200   0o0000016 }
 144         { 38400   0o0000017 }
 145         { 57600   0o0010001 }
 146         { 115200  0o0010002 }
 147         { 230400  0o0010003 }
 148         { 460800  0o0010004 }
 149         { 500000  0o0010005 }
 150         { 576000  0o0010006 }
 151         { 921600  0o0010007 }
 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 ;
 161