32 lines
1.2 KiB
Racket
32 lines
1.2 KiB
Racket
#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))
|