diff options
Diffstat (limited to 'bin')
-rw-r--r-- | bin/Makefile.am | 15 | ||||
-rwxr-xr-x | bin/geiser-racket.sh | 24 |
2 files changed, 0 insertions, 39 deletions
diff --git a/bin/Makefile.am b/bin/Makefile.am deleted file mode 100644 index 9f6ee2b..0000000 --- a/bin/Makefile.am +++ /dev/null @@ -1,15 +0,0 @@ -EXTRA_DIST = geiser-racket.sh -dist_bin_SCRIPTS = geiser-racket -noinst_SCRIPTS = geiser-racket-noinst - -CLEANFILES = $(dist_bin_SCRIPTS) $(noinst_SCRIPTS) - -geiser-racket: $(srcdir)/geiser-racket.sh - @sed -e "s|top=\".*\"|top=$(datarootdir)/geiser|" \ - $(srcdir)/geiser-racket.sh >$@ - @chmod +x $@ - -geiser-racket-noinst: $(srcdir)/geiser-racket.sh - @sed -e "s|top=\".*\"|top=$(abs_top_srcdir)/scheme|" \ - $(srcdir)/geiser-racket.sh >$@ - @chmod +x $@ diff --git a/bin/geiser-racket.sh b/bin/geiser-racket.sh deleted file mode 100755 index 4ac7712..0000000 --- a/bin/geiser-racket.sh +++ /dev/null @@ -1,24 +0,0 @@ -#!/bin/bash -#| -topdir=$(dirname $0) -elpa_scheme=$topdir/scheme -in_scheme=$topdir/../scheme -top=$(if [ -d $elpa_scheme ]; then echo $elpa_scheme; else echo $in_scheme; fi) -exec racket -i -S "$top/racket" -l errortrace -cu "$0" ${1+"$@"} -|# - -#lang racket/base - -(require (lib "cmdline.rkt")) -(require geiser/server) - -(define port (make-parameter 0)) -(define host (make-parameter #f (lambda (h) (and (string? h) h)))) - -(command-line - "run-racket.sh" (current-command-line-arguments) - (once-each - (("-n" "--hostname") n "Network hostname, or #f for all interfaces" (host n)) - (("-p" "--port") p "Geiser server port" (port (string->number p))))) - -(printf "Geiser server running at port ~a~%" (start-geiser (port) (host))) |