#lang racket/base

(provide run-player-agent
         run-player-agent-cli)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; goal   : Start the graphical polling playback agent.
; pre    : A graphical desktop is available.
; post   : The agent remains active until its window is closed.
; result : The GUI frame returned by the implementation.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (run-player-agent)
  ((dynamic-require "private/player-agent-gui.rkt"
                    'run-player-agent-gui)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; goal   : Start the headless polling playback agent.
; pre    : The configured server is reachable.
; post   : The agent remains active until interrupted.
; result : Void after the agent has shut down.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (run-player-agent-cli #:server-url [server-url #f]
                              #:name [name #f]
                              #:config-file [config-file #f])
  ((dynamic-require "player-agent-cli.rkt" 'run-player-agent-cli)
   #:server-url server-url
   #:name name
   #:config-file config-file))

(module+ main
  (run-player-agent))