summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2020-07-20 18:57:35 +0100
committerjao <jao@gnu.org>2020-07-20 18:57:35 +0100
commit94296d8dcfb46812bb142e4fb6a41e9bc810d287 (patch)
tree07e6a73926708fb06fdfa0ad3cbf17c8141ced52 /elisp
parent9d66c63c5374001608b2e1807c3e136c82c44f60 (diff)
downloadgeiser-chez-94296d8dcfb46812bb142e4fb6a41e9bc810d287.tar.gz
geiser-chez-94296d8dcfb46812bb142e4fb6a41e9bc810d287.tar.bz2
files moved from original import locations
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-chez.el158
1 files changed, 0 insertions, 158 deletions
diff --git a/elisp/geiser-chez.el b/elisp/geiser-chez.el
deleted file mode 100644
index 3d4b495..0000000
--- a/elisp/geiser-chez.el
+++ /dev/null
@@ -1,158 +0,0 @@
-;;; geiser-chez.el -- Chez Scheme's implementation of the geiser protocols
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the Modified BSD License. You should
-;; have received a copy of the license along with this program. If
-;; not, see <http://www.xfree86.org/3.3.6/COPYRIGHT2.html#5>.
-
-
-;;; Code:
-
-(require 'geiser-connection)
-(require 'geiser-syntax)
-(require 'geiser-custom)
-(require 'geiser-base)
-(require 'geiser-eval)
-(require 'geiser-edit)
-(require 'geiser-log)
-(require 'geiser)
-
-(require 'compile)
-(require 'info-look)
-
-(eval-when-compile (require 'cl-lib))
-
-
-;;; Customization:
-
-(defgroup geiser-chez nil
- "Customization for Geiser's Chez Scheme flavour."
- :group 'geiser)
-
-(geiser-custom--defcustom geiser-chez-binary
- "scheme"
- "Name to use to call the Chez Scheme executable when starting a REPL."
- :type '(choice string (repeat string))
- :group 'geiser-chez)
-
-(geiser-custom--defcustom geiser-chez-init-file "~/.chez-geiser"
- "Initialization file with user code for the Chez REPL."
- :type 'string
- :group 'geiser-chez)
-
-(geiser-custom--defcustom geiser-chez-extra-command-line-parameters '()
- "Additional parameters to supply to the Chez binary."
- :type '(repeat string)
- :group 'geiser-chez)
-
-
-;;; REPL support:
-
-(defun geiser-chez--binary ()
- (if (listp geiser-chez-binary)
- (car geiser-chez-binary)
- geiser-chez-binary))
-
-(defun geiser-chez--parameters ()
- "Return a list with all parameters needed to start Chez Scheme.
-This function uses `geiser-chez-init-file' if it exists."
- (let ((init-file (and (stringp geiser-chez-init-file)
- (expand-file-name geiser-chez-init-file))))
- `(,@(and init-file (file-readable-p init-file) (list init-file))
- ,(expand-file-name "chez/geiser/geiser.ss" geiser-scheme-dir)
- ,@geiser-chez-extra-command-line-parameters)))
-
-(defconst geiser-chez--prompt-regexp "> ")
-
-
-;;; Evaluation support:
-
-(defun geiser-chez--geiser-procedure (proc &rest args)
- (cl-case proc
- ((eval compile)
- (let ((form (mapconcat 'identity (cdr args) " "))
- (module (cond ((string-equal "'()" (car args))
- "'()")
- ((and (car args))
- (concat "'" (car args)))
- (t
- "#f"))))
- (format "(geiser:eval %s '%s)" module form)))
- ((load-file compile-file)
- (format "(geiser:load-file %s)" (car args)))
- ((no-values)
- "(geiser:no-values)")
- (t
- (let ((form (mapconcat 'identity args " ")))
- (format "(geiser:%s %s)" proc form)))))
-
-(defun geiser-chez--get-module (&optional module)
- (cond ((null module)
- :f)
- ((listp module) module)
- ((stringp module)
- (condition-case nil
- (car (geiser-syntax--read-from-string module))
- (error :f)))
- (t :f)))
-
-(defun geiser-chez--symbol-begin (module)
- (if module
- (max (save-excursion (beginning-of-line) (point))
- (save-excursion (skip-syntax-backward "^(>") (1- (point))))
- (save-excursion (skip-syntax-backward "^'-()>") (point))))
-
-(defun geiser-chez--import-command (module)
- (format "(import %s)" module))
-
-(defun geiser-chez--exit-command () "(exit 0)")
-;;
-;; ;;; REPL startup
-
-(defconst geiser-chez-minimum-version "9.4")
-
-(defun geiser-chez--version (binary)
- (car (process-lines binary "--version")))
-
-(defun geiser-chez--startup (remote)
- (let ((geiser-log-verbose-p t))
- (compilation-setup t)
- (geiser-eval--send/wait "(begin (import (geiser)) (write `((result ) (output . \"\"))) (newline))")))
-
-(defun geiser-chez--display-error (module key msg)
- (when (stringp msg)
- (save-excursion (insert msg))
- (geiser-edit--buttonize-files))
- (and (or (eq key 'chez-error-message)
- (not key))
- (not (zerop (length msg)))
- msg))
-
-;;; Implementation definition:
-
-(define-geiser-implementation chez
- (binary geiser-chez--binary)
- (arglist geiser-chez--parameters)
- (version-command geiser-chez--version)
- (minimum-version geiser-chez-minimum-version)
- (repl-startup geiser-chez--startup)
- (prompt-regexp geiser-chez--prompt-regexp)
- (debugger-prompt-regexp nil) ;; geiser-chez--debugger-prompt-regexp
- ;; (enter-debugger geiser-chez--enter-debugger)
- (marshall-procedure geiser-chez--geiser-procedure)
- (find-module geiser-chez--get-module)
- ;; (enter-command geiser-chez--enter-command)
- (exit-command geiser-chez--exit-command)
- (import-command geiser-chez--import-command)
- (find-symbol-begin geiser-chez--symbol-begin)
- (display-error geiser-chez--display-error)
- ;; (external-help geiser-chez--manual-look-up)
- ;; (check-buffer geiser-chez--guess)
- ;; (keywords geiser-chez--keywords)
- ;; (case-sensitive geiser-chez-case-sensitive-p)
- )
-
-(geiser-impl--add-to-alist 'regexp "\\.ss$" 'chez t)
-(geiser-impl--add-to-alist 'regexp "\\.def$" 'chez t)
-
-(provide 'geiser-chez)