ssh-chat bot version 0.1

bot.rkt

#lang racket/base

(define (start-bot)
  (subprocess #f #f 'stdout 
              (find-executable-path "ssh")
              "-p 2022"
              "-o SetEnv TERM=bot"
              "[email protected]"))

(define (generate-io sub)
  (define-values (s stdout stdin e) (sub))
  (define (read!) (read-line stdout 'return))
  (define (write! msg)
    (display (format "~a\r\n" msg) stdin)
    (flush-output stdin))
  (values s read! write!))

(define (main)
  (define-values (sub read! write!)
    (generate-io start-bot))
  (define (loop)
    (define v (read!))
    (displayln v)
    (sleep 1)
    (loop))
  (loop))

  ; end