diff options
author | jao <jao@gnu.org> | 2020-07-19 22:41:22 +0100 |
---|---|---|
committer | jao <jao@gnu.org> | 2020-07-19 22:41:22 +0100 |
commit | 847d2ad4c6da462c26c50af1ef7d9cd697f3a5d2 (patch) | |
tree | 29cdda38fe12e399e36830bd25bd7ac5cb83011e /bin | |
parent | 02e228f312483fc78af1c2a1e93f706f774788fa (diff) | |
download | geiser-847d2ad4c6da462c26c50af1ef7d9cd697f3a5d2.tar.gz geiser-847d2ad4c6da462c26c50af1ef7d9cd697f3a5d2.tar.bz2 |
scheme and autotools removals
The plan is to have geiser-core contain only, well, the elisp core
engine. The autotools scafolding is no really worth it, so it's gone
too (and in the process, i'll look younger).
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))) |