gistfile1.txt

#lang racket/base
(require racket/port)
(require racket/tcp)


(define (start-irc #:irc-hostname [irc-hostname "chat.freenode.net"]
                   #:irc-portno [irc-portno 6667]
                   #:irc-nick [irc-nick "nyuracket"] 
                   #:irc-user [irc-user "racket"]
                   #:irc-realname [irc-realname "nyuracket"])
  (printf "Connecting to ~a : ~a...\n" irc-hostname irc-portno)
  
  (define-values (irc-input-port irc-output-port)
    (tcp-connect irc-hostname irc-portno))
    
  (define (send-irc-msg message output-port)
    (displayln (string-append "SEND " message))
    (display (string-append message "\r\n") output-port))
  
  (send-irc-msg (string-append "NICK " irc-nick) irc-output-port)
  (send-irc-msg (string-append "USER " irc-user "* * :" irc-realname) irc-output-port))