From 7f7a6d03d8d062bc19a76c7217acdb6705ee9341 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Thu, 9 May 2019 11:39:05 +0100 Subject: [PATCH] Command-line programs for starting various kinds of server --- syndicate/bin/syndicate-server-debug.rkt | 8 ++++++++ syndicate/bin/syndicate-server.rkt | 2 ++ syndicate/info.rkt | 2 ++ 3 files changed, 12 insertions(+) create mode 100644 syndicate/bin/syndicate-server-debug.rkt create mode 100644 syndicate/bin/syndicate-server.rkt diff --git a/syndicate/bin/syndicate-server-debug.rkt b/syndicate/bin/syndicate-server-debug.rkt new file mode 100644 index 0000000..c841919 --- /dev/null +++ b/syndicate/bin/syndicate-server-debug.rkt @@ -0,0 +1,8 @@ +#lang racket +(require racket/logging) +(with-logging-to-port (current-error-port) + (lambda () + (dynamic-require '(submod imperative-syndicate/distributed main) #f)) + 'debug 'syndicate/distributed + 'debug 'syndicate/federation + ) diff --git a/syndicate/bin/syndicate-server.rkt b/syndicate/bin/syndicate-server.rkt new file mode 100644 index 0000000..ed762d4 --- /dev/null +++ b/syndicate/bin/syndicate-server.rkt @@ -0,0 +1,2 @@ +#lang racket +(dynamic-require '(submod imperative-syndicate/distributed main) #f) diff --git a/syndicate/info.rkt b/syndicate/info.rkt index 199602a..f2b59d2 100644 --- a/syndicate/info.rkt +++ b/syndicate/info.rkt @@ -1,2 +1,4 @@ #lang setup/infotab (define collection "imperative-syndicate") +(define racket-launcher-names '("syndicate-server" "syndicate-server-debug")) +(define racket-launcher-libraries '("bin/syndicate-server.rkt" "bin/syndicate-server-debug.rkt"))