tob.rkt

#lang racket

(define connect (lambda () (
  (let-values ([(in out) (tcp-connect "irc.codetalk.io" 6667)])
    (begin
      (displayln "NICK tob" out)
      (displayln "USER tob 8 * : tob the bot" out)
      (listen in out))))))

(define (listen in out) (begin
  (define ss (get-line in))
  (if (ping? ss) 
    (begin (pong ss out) (displayln "ponging"))
    '())
  (displayln ss) 
  (listen in out)))

(define (get-line in) 
  (let ([s (read-line in)])
    (if (eof-object? s)
      (error "connection failed")
      (string-split s))))

(define (ping? ss) (eq? (car ss) "PING"))

(define (pong ss out)
  (displayln (string-append "PONG " (car (cdr ss))) out))

> (enter! "tob.rkt")
  [re-loading /home/klrr/Sandbox/lisp/tob.rkt]
"tob.rkt"> (connect)
(:irc.codetalk.io NOTICE AUTH :*** Looking up your hostname...)
(:irc.codetalk.io NOTICE AUTH :*** Couldn't resolve your hostname; using your IP address instead)
(ERROR :Closing Link: [88.129.150.242] (Ping timeout: 36 seconds))