From 165a35a471d19c7e453c0e9c9a719c036a77db1a Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 21 Nov 2016 17:04:44 +1300 Subject: [PATCH] Command-line argument -c --> -f --- README.md | 2 +- racketmq/hub.rkt | 7 ++++++- racketmq/run | 2 +- 3 files changed, 8 insertions(+), 3 deletions(-) diff --git a/README.md b/README.md index 469b322..d494c72 100644 --- a/README.md +++ b/README.md @@ -49,7 +49,7 @@ RacketMQ has only one required configuration variable: you must tell the hub its primary ("canonical") *host name* and *port number*. These are used to build URLs for clients of the Hub to use. -When the RacketMQ startup script is given a "`-c` *filename*" option, +When the RacketMQ startup script is given a "`-f` *filename*" option, it loads configuration data from the named file. The option can be supplied more than once; all named files are imported. diff --git a/racketmq/hub.rkt b/racketmq/hub.rkt index 6728bd9..b4c7975 100644 --- a/racketmq/hub.rkt +++ b/racketmq/hub.rkt @@ -1,6 +1,7 @@ #lang syndicate/actor (require racket/cmdline) +(require racket/port) (require racket/set) (require "private/util.rkt") @@ -21,7 +22,11 @@ (assert (config (list 'canonical-host host (string->number port)))))] #:multi - [("-c" "--config") filename "Specify a configuration file to load" + [("-o" "--option") key vals "Specify a single configuration option" + (actor #:name (list 'config-option key vals) + (assert (config (cons (string->symbol key) + (port->list read (open-input-string vals))))))] + [("-f" "--config-file") filename "Specify a configuration file to load" (spawn-configuration filename)]) (actor #:name 'main diff --git a/racketmq/run b/racketmq/run index c53e4ad..097986b 100755 --- a/racketmq/run +++ b/racketmq/run @@ -6,4 +6,4 @@ set -e echo "Starting RacketMQ" exec 2>&1 export PLTSTDERR="$PLTSTDERR debug@racketmq info@syndicate/drivers/web error" -exec racket hub.rkt -c live-config.rktd +exec racket hub.rkt -f live-config.rktd