Am Freitag, 7. November 2014, 15:09:29 schrieb Jerry DeLisle: > Attached is a small patch that fixes a bug in serial.fs I found, adds close, > and a couple constants I am using. I am still learning my way around git. > You may have updated since I did this. I plan to do more, I have just been > sick with head cold for last week or so.
Thanks. > I also have some words to set and clr some control bits if interested: > > variable result > 0 result ! > > HEX > 5415 CONSTANT TIOCMGET > 5418 CONSTANT TIOCMSET > 002 CONSTANT TIOCM_DTR > 004 CONSTANT TIOCM_RTS > 020 CONSTANT TIOCM_CTS > 100 CONSTANT TIOCM_DSR > DECIMAL > > : get-ioctl ( fd -- n ) > > TIOCMGET result ioctl 0< abort" IOCTL GET Failed." result @ ; > > : set-ioctl ( fd n -- ) > > result ! TIOCMSET result ioctl 0< abort" IOCTL SET Failed." ; > > : set-dtr ( fd -- ) > > dup get-ioctl TIOCM_DTR or set-ioctl ; > > : clr-dtr ( fd -- ) > > dup get-ioctl TIOCM_DTR invert and set-ioctl ; > > : set-rts ( fd -- ) > > dup get-ioctl TIOCM_RTS or set-ioctl ; > > : clr-rts ( fd -- ) > > dup get-ioctl TIOCM_RTS invert and set-ioctl ; > > : get-cts ( fd -- n ) > > get-ioctl TIOCM_CTS and ; > > : get-dsr ( fd -- n ) > > get-ioctl TIOCM_DSR and ; > > I have tested most of these and I am using them for an application i am > working on. They seemed useful to me. I hope the factoring looks OK. The factoring is ok, but you should use number prefixes instead of HEX .. DECIMAL. -- Bernd Paysan "If you want it done right, you have to do it yourself" http://bernd-paysan.de/
