diff options
author | 2022-04-02 17:31:51 +0200 | |
---|---|---|
committer | 2022-04-02 17:31:51 +0200 | |
commit | ffcc1b4636c13a05a915ffc6ee3dfe7d3d9d9e78 (patch) | |
tree | 69ece9c4238671b869cf180ad4ca356ed5eceaed | |
parent | dev-lisp/cl-webdav: Drop ~sparc because of unkeyworded dependencies (diff) | |
download | lisp-ffcc1b4636c13a05a915ffc6ee3dfe7d3d9d9e78.tar.gz lisp-ffcc1b4636c13a05a915ffc6ee3dfe7d3d9d9e78.tar.bz2 lisp-ffcc1b4636c13a05a915ffc6ee3dfe7d3d9d9e78.zip |
misc: Remove unused directory
Signed-off-by: Ulrich Müller <ulm@gentoo.org>
-rwxr-xr-x | misc/interpret | 122 | ||||
l--------- | misc/interpret-slib | 1 | ||||
-rw-r--r-- | misc/scheme.scm | 50 |
3 files changed, 0 insertions, 173 deletions
diff --git a/misc/interpret b/misc/interpret deleted file mode 100755 index 30cfea8a..00000000 --- a/misc/interpret +++ /dev/null @@ -1,122 +0,0 @@ -#!/bin/bash -#set -x -# Usage: -# interpret a file: ./interpret mzscheme < scheme.scm -# interpret code: ./interpret <<< "(display \"hello\nworld\")(newline)" -# use SLIB: ./interpret-slib <<< "(slib:report)" - -# tricky examples: -# ./interpret bigloo <<< "(display (eq? (string->symbol \"\`\") '|\`|)))(newline)" -# ./interpret bigloo <<< '(display (eq? (string->symbol "`") '\''|`|)))(newline)' - -# LOAD_SLIB=$(if [[ $0 == *slib* ]]; then echo "slib"; else echo ""; fi) -if [[ $0 = *slib* ]]; then LOAD_SLIB="slib"; fi - -#echo "${LOAD_SLIB}" - -read -r -d "" PROGRAM -echo "PROGRAM = ${PROGRAM}" -PROGRAM="(begin ${PROGRAM} (newline))" - -IMPLEMENTATION="${1:-all}" - -make_load_expression() { - echo "(load \"/usr/share/slib/$1.init\")" -} - -run_bigloo() { - SLIB_INIT="bigloo" - echo "bigloo:" -# bigloo -s -eval "$([[ -z ${LOAD_SLIB} ]] && echo "${PROGRAM}" || echo "$(make_load_expression ${SLIB_INIT}) ${PROGRAM}") (exit)" - if [[ $LOAD_SLIB ]]; then bigloo -s -eval "$(make_load_expression $SLIB_INIT) $PROGRAM (exit)"; else bigloo -s -eval "$PROGRAM (exit)"; fi -} - -run_chicken() { - SLIB_INIT="chicken" - echo "chicken:" -# csi -require-extension syntax-case -eval \ - csi -eval "$([[ -z ${LOAD_SLIB} ]] && echo "${PROGRAM}" || echo "$(make_load_expression ${SLIB_INIT}) ${PROGRAM}")" -} - -run_gambit() { - SLIB_INIT="gambit" - echo "gambit:" - gambit-interpreter -e "(load \"~~/lib/syntax-case\") $([[ -z ${LOAD_SLIB} ]] && echo "${PROGRAM}" || echo "$(make_load_expression ${SLIB_INIT}) ${PROGRAM}")" -} - -run_gauche() { - SLIB_INIT="gauche" - echo "gauche:" - gosh -e "$([[ -z ${LOAD_SLIB} ]] && echo "${PROGRAM}" || echo "$(make_load_expression ${SLIB_INIT}) ${PROGRAM}")" -} - -run_guile() { - SLIB_INIT="guile" - echo "guile:" - guile -c "(use-modules (ice-9 syncase)) $([[ -z ${LOAD_SLIB} ]] && echo "${PROGRAM}" || echo "$(make_load_expression ${SLIB_INIT}) ${PROGRAM}")" -} - -run_mit-scheme() { - SLIB_INIT="mitscheme" - echo "mit-scheme:" -#mit-scheme --batch-mode --eval "(set! load-noisily? #t) (load \"$1\")" -#echo "(set! load-noisily? #t) (load \"$1\")" | mit-scheme --batch-mode -#mit-scheme --batch-mode --eval "(set! load/suppress-loading-message? #t)" # (load \"$1\")" - echo "(set! load/suppress-loading-message? #t) $([[ -z ${LOAD_SLIB} ]] && echo "${PROGRAM}" || echo "$(make_load_expression ${SLIB_INIT}) ${PROGRAM}")" | mit-scheme --batch-mode -#echo "(load \"$1\")" | mit-scheme --batch-mode -} - -run_mzscheme() { - SLIB_INIT="DrScheme" - echo "mzscheme:" - mzscheme -vme "$([[ -z ${LOAD_SLIB} ]] && echo "${PROGRAM}" || echo "(begin $(make_load_expression ${SLIB_INIT}) ${PROGRAM})")" -} - -run_scm() { - SLIB_INIT="scm" - echo "scm:" - scm -e "$([[ -z ${LOAD_SLIB} ]] && echo "${PROGRAM}" || echo "$(make_load_expression ${SLIB_INIT}) ${PROGRAM}")" -} - -run_stklos() { - SLIB_INIT="STk" - [[ -z ${LOAD_SLIB} ]] || PROGRAM="$(make_load_expression STk) ${PROGRAM}" - echo "stklos with full-syntax:" - stklos -e "(begin (require \"full-syntax\") $([[ -z ${LOAD_SLIB} ]] && echo "${PROGRAM}" || echo "$(make_load_expression ${SLIB_INIT}) ${PROGRAM}"))" - echo "stklos:" - stklos -e "$([[ -z ${LOAD_SLIB} ]] && echo "${PROGRAM}" || echo "$(make_load_expression ${SLIB_INIT}) ${PROGRAM}")" -} - -run_elk() { - SLIB_INIT="elk" - echo "elk:" -# echo "$([[ -z ${LOAD_SLIB} ]] && echo "${PROGRAM}" || echo "$(make_load_expression ${SLIB_INIT}) ${PROGRAM}")" | elk -l - - { [[ -z $LOAD_SLIB ]] && echo "$PROGRAM" || echo "$(make_load_expression "$SLIB_INIT" "$PROGRAM")"; } | elk -l - -} - -run_all() { - run_bigloo - [[ -z ${LOAD_SLIB} ]] && run_chicken - [[ -z ${LOAD_SLIB} ]] && run_elk - run_gambit - [[ -z ${LOAD_SLIB} ]] && run_gauche - run_guile - [[ -z ${LOAD_SLIB} ]] && run_mit-scheme - run_mzscheme - run_scm - [[ -z ${LOAD_SLIB} ]] && run_stklos -} - -case ${IMPLEMENTATION} in - bigloo) run_bigloo;; - chicken) run_chicken;; - elk) run_elk;; - gambit) run_gambit;; - gauche) run_gauche;; - guile) run_guile;; - mit-scheme) run_mit-scheme;; - mzscheme) run_mzscheme;; - scm) run_scm;; - stklos) run_stklos;; - all) run_all;; -esac diff --git a/misc/interpret-slib b/misc/interpret-slib deleted file mode 120000 index f483b4f0..00000000 --- a/misc/interpret-slib +++ /dev/null @@ -1 +0,0 @@ -interpret
\ No newline at end of file diff --git a/misc/scheme.scm b/misc/scheme.scm deleted file mode 100644 index e219bd70..00000000 --- a/misc/scheme.scm +++ /dev/null @@ -1,50 +0,0 @@ -(require (lib "43.ss" "srfi"))(require (lib "69.ss" "srfi"))(require (lib "process.ss")) -;(require-extension srfi-43) - -;(use-modules (ice-9 srfi-43)(ice-9 syncase)) - -(define database (make-hash-table)) - -(define-syntax (define-implementation x) - (syntax-case x () - ((_ implementation evaluate-command interpret-command compile-command run-compiled-command) - (syntax (hash-table-set! database 'implementation - (vector evaluate-command interpret-command compile-command run-compiled-command)))))) - -(define-syntax (define-accessor x) - (syntax-case x () - ((_ name position) - (syntax (define (name implementation) - (let ((entry (hash-table-ref/default database implementation #f))) - (if entry (vector-ref entry position) (error "no such implementation known!")))))))) - -(define-accessor implementation->evaluate-command 0) -(define-accessor implementation->interpret-command 1) -(define-accessor implementation->compile-command 2) -(define-accessor implementation->run-compiled-command 3) - -(define-implementation bigloo - (lambda (x) (string-append "echo '" x "' | bigloo -s")) - (lambda (x) (string-append "bigloo -i" x)) - (lambda (x) (string-append "bigloo -native" x " -o ." x "_bigloo")) - (lambda (x) (string-append "./." x "_bigloo"))) - -(define-implementation mzscheme - (lambda (x) (string-append "echo '" x "' | mzscheme --mute-banner")) - (lambda (x) (string-append "mzscheme --script" x)) - (lambda (x) (string-append "mzc --extension --autodir" x)) - (lambda (x) (implementation->evaluate-command mzscheme (append-string "(load/use-compiled \"" x "\")")))) - -(define-syntax (define-command x) - (syntax-case x () - ((_ name implementation->command) - (syntax (define (name implementation program) - (system ((implementation->command implementation) program))))))) - -(define-command evaluate implementation->evaluate-command) -(define-command interpret implementation->interpret-command) -(define-command compile implementation->compile-command) -(define-command run-compiled implementation->run-compiled-command) - -(evaluate 'mzscheme "(+ 1 2)") -(evaluate 'bigloo '"(+ 5 2)") |