From 94296d8dcfb46812bb142e4fb6a41e9bc810d287 Mon Sep 17 00:00:00 2001 From: jao Date: Mon, 20 Jul 2020 18:57:35 +0100 Subject: files moved from original import locations --- elisp/geiser-chez.el | 158 --------------------------------------------------- 1 file changed, 158 deletions(-) delete mode 100644 elisp/geiser-chez.el (limited to 'elisp/geiser-chez.el') 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 . - - -;;; 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) -- cgit v1.2.3