cli player agent added

player-agent.rkt

@@ -1,6 +1,7 @@
 #lang racket/base
 
-(provide run-player-agent)
+(provide run-player-agent
+         run-player-agent-cli)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; goal   : Start the graphical polling playback agent.
@@ -12,5 +13,19 @@
   ((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))