summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2020-07-19 22:41:22 +0100
committerjao <jao@gnu.org>2020-07-19 22:41:22 +0100
commit847d2ad4c6da462c26c50af1ef7d9cd697f3a5d2 (patch)
tree29cdda38fe12e399e36830bd25bd7ac5cb83011e /bin
parent02e228f312483fc78af1c2a1e93f706f774788fa (diff)
downloadgeiser-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.am15
-rwxr-xr-xbin/geiser-racket.sh24
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)))