serial writechar

(serial-writechar dev char)

serial-writechar write a character to RS232 device

Parameter	Description
dev	Serial device obtained from rs232-try
char	The character to be written

Example

Example 1: Send message msg to serial device dev (one char at a time).

(define (monitor:send dev msg)
  (let loop ((m (u8vector->list msg)))
    (if (fx> (length m) 0) (begin
      (serial-writechar dev (car m))
      (loop (cdr m) (or (serial-error) (serial-timeout)))
    ))
  ))