-(define option-spec
- `((server (single-char #\s) (required? #t) (value #t))
- (port (single-char #\p)
- (value #t)
- (predicate
- ,(lambda (s)
- (if (string->number s) #t #f))))
- (username (single-char #\u) (required? #t) (value #t))
- (channels (value #t))
- (listen)))
-
-(define* (make-irc-bot-cli #:optional
- (line-handler default-line-handler)
- (print-and-continue-on-error #t))
- (define (main args)
- (let* ((options (getopt-long args option-spec))
- (hostname (option-ref options 'server #f))
- (port (or (option-ref options 'port #f)
- default-irc-port))
- (username (option-ref options 'username #f))
- (listen (option-ref options 'listen #f))
- (channels (option-ref options 'channels ""))
- (agenda (if print-and-continue-on-error
- (make-agenda #:pre-unwind-handler print-error-and-continue)
- (make-agenda))))
- (display `((server ,hostname) (port ,port) (username ,username)
- (listen ,listen) (channels-split ,(string-split channels #\space))))
- (newline)
- (if listen
- (spawn-and-queue-repl-server! agenda))
- (queue-and-start-irc-agenda!
- agenda
- (irc-socket-setup hostname port)
- #:inet-port port
- #:username username
- #:channels (string-split channels #\space)
- #:line-handler line-handler)))
- main)
-
-(define main (make-irc-bot-cli))
+(define-class <irc-bot> (<actor>)
+ (username #:init-keyword #:username
+ #:getter irc-bot-username)
+ (realname #:init-keyword #:realname
+ #:init-value #f)
+ (server #:init-keyword #:server
+ #:getter irc-bot-server)
+ (channels #:init-keyword #:channels
+ #:getter irc-bot-channels)
+ (port #:init-keyword #:port
+ #:init-value default-irc-port
+ #:getter irc-bot-port)
+ (socket #:accessor irc-bot-socket)
+ (actions #:allocation #:each-subclass
+ #:init-thunk (build-actions
+ (main-loop irc-bot-main-loop)
+ (handle-line handle-line)
+ (send-line irc-bot-send-line-action))))
+
+(define (irc-bot-realname irc-bot)
+ (or (slot-ref irc-bot 'realname)
+ (irc-bot-username irc-bot)))
+
+(define-method (actor-init! (irc-bot <irc-bot>))
+ "Initialize the IRC bot"
+ (define socket
+ (irc-socket-setup (irc-bot-server irc-bot)
+ (irc-bot-port irc-bot)))
+ (pk 'initing-irc)
+ (set! (irc-bot-socket irc-bot) socket)
+ (format socket "USER ~a ~a ~a :~a~a"
+ (irc-bot-username irc-bot)
+ "*" "*" ; hostname and servername
+ (irc-bot-realname irc-bot) irc-eol)
+ (format socket "NICK ~a~a" (irc-bot-username irc-bot) irc-eol)
+
+ (for-each
+ (lambda (channel)
+ (format socket "JOIN ~a~a" channel irc-eol))
+ (irc-bot-channels irc-bot))
+
+ (<- (actor-id irc-bot) 'main-loop))
+
+(define-method (actor-cleanup! (irc-bot <irc-bot>))
+ (close (irc-bot-socket irc-bot)))
+
+(define (irc-bot-main-loop irc-bot message)
+ (define socket (irc-bot-socket irc-bot))
+ (define line (string-trim-right (read-line socket) #\return))
+ (dispatch-raw-line irc-bot line)
+ (cond
+ ;; The port's been closed for some reason, so stop looping
+ ((port-closed? socket)
+ 'done)
+ ;; We've reached the EOF object, which means we should close
+ ;; the port ourselves and stop looping
+ ((eof-object? (peek-char socket))
+ (close socket)
+ 'done)
+ (else
+ (<- (actor-id irc-bot) 'main-loop))))
+
+(define* (irc-bot-send-line-action irc-bot message
+ channel line #:key emote?)
+ "Action handler for sending lines. Real behavior happens in
+irc-bot-send-line."
+ (irc-bot-send-line irc-bot channel line #:emote? emote?))
+
+(define* (irc-bot-send-line irc-bot channel line #:key emote?)
+ ;; TODO: emote? handling
+ (format (irc-bot-socket irc-bot) "PRIVMSG ~a :~a~a"
+ channel line irc-eol))
+
+
+;;; Likely-to-be-overridden generic methods
+
+(define-method (dispatch-raw-line (irc-bot <irc-bot>) raw-line)
+ "Dispatch a raw line of input"
+ (receive (line-prefix line-command line-params)
+ (parse-line raw-line)
+ (match line-command
+ ("PING"
+ (display (string-append "PONG" irc-eol)
+ (irc-bot-socket irc-bot)))
+ ("PRIVMSG"
+ (receive (channel-name line-text emote?)
+ (condense-privmsg-line line-params)
+ (let ((username (irc-line-username line-prefix)))
+ (<- (actor-id irc-bot) 'handle-line
+ username channel-name
+ line-text emote?))))
+ (_ (handle-misc-input irc-bot raw-line)))))
+
+(define-method (handle-line (irc-bot <irc-bot>) message
+ username channel-name line-text emote?)
+ (echo-message irc-bot username channel-name line-text emote?))
+
+(define-method (handle-misc-input (irc-bot <irc-bot>) raw-line)
+ (display raw-line)
+ (newline))
+
+(define-method (handle-user-join (irc-bot <irc-bot>) user channel)
+ 'TODO)
+
+(define-method (handle-user-quit (irc-bot <irc-bot>) user channel)
+ 'TODO)
+