[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/geiser-gauche 60c95ca 002/119: Add initial version of geis
From: |
Philip Kaludercic |
Subject: |
[nongnu] elpa/geiser-gauche 60c95ca 002/119: Add initial version of geiser.scm and geiser-gauche.el |
Date: |
Sun, 1 Aug 2021 18:27:46 -0400 (EDT) |
branch: elpa/geiser-gauche
commit 60c95ca8d8669fa415b90013f42746269736d734
Author: András Simonyi <andras.simonyi@gmail.com>
Commit: András Simonyi <andras.simonyi@gmail.com>
Add initial version of geiser.scm and geiser-gauche.el
---
geiser-gauche.el | 165 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
geiser.scm | 70 +++++++++++++++++++++++
2 files changed, 235 insertions(+)
diff --git a/geiser-gauche.el b/geiser-gauche.el
new file mode 100644
index 0000000..ffbbc0b
--- /dev/null
+++ b/geiser-gauche.el
@@ -0,0 +1,165 @@
+;;; geiser-gauche.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-gauche nil
+ "Customization for Geiser's Chez Scheme flavour."
+ :group 'geiser)
+
+(geiser-custom--defcustom geiser-gauche-binary
+ "scheme"
+ "Name to use to call the Chez Scheme executable when starting a REPL."
+ :type '(choice string (repeat string))
+ :group 'geiser-gauche)
+
+(geiser-custom--defcustom geiser-gauche-init-file "~/.chez-geiser"
+ "Initialization file with user code for the Chez REPL."
+ :type 'string
+ :group 'geiser-gauche)
+
+(geiser-custom--defcustom geiser-gauche-extra-command-line-parameters '()
+ "Additional parameters to supply to the Chez binary."
+ :type '(repeat string)
+ :group 'geiser-gauche)
+
+
+;;; REPL support:
+
+(defun geiser-gauche--binary ()
+ (if (listp geiser-gauche-binary)
+ (car geiser-gauche-binary)
+ geiser-gauche-binary))
+
+(defun geiser-gauche--parameters ()
+ "Return a list with all parameters needed to start Chez Scheme.
+This function uses `geiser-gauche-init-file' if it exists."
+ (let ((init-file (and (stringp geiser-gauche-init-file)
+ (expand-file-name geiser-gauche-init-file))))
+ `(,@(and init-file (file-readable-p init-file) (list init-file))
+ ,(expand-file-name "chez/geiser/geiser.ss" geiser-scheme-dir)
+ ,@geiser-gauche-extra-command-line-parameters)))
+
+(defconst geiser-gauche--prompt-regexp "> ")
+
+
+;;; Evaluation support:
+
+(defun geiser-gauche--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-gauche--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-gauche--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-gauche--import-command (module)
+ (format "(import %s)" module))
+
+(defun geiser-gauche--exit-command () "(exit 0)")
+;;
+;; ;;; REPL startup
+
+(defconst geiser-gauche-minimum-version "9.4")
+
+(defun geiser-gauche--version (binary)
+ (car (process-lines binary "--version")))
+
+(defun geiser-gauche--startup (remote)
+ (let ((geiser-log-verbose-p t))
+ (compilation-setup t)
+ (geiser-eval--send/wait "(begin (import (geiser)) (write `((result )
(output . \"\"))) (newline))")))
+
+(defun geiser-gauche--display-error (module key msg)
+ (and key (message msg) nil))
+
+
+
+;;; Manual look up
+
+(defun guile--manual-look-up (id mod)
+ (let ((info-lookup-other-window-flag
+ geiser-guile-manual-lookup-other-window-p))
+ (info-lookup-symbol (symbol-name id) 'geiser-guile-mode))
+ (when geiser-guile-manual-lookup-other-window-p
+ (switch-to-buffer-other-window "*info*"))
+ (search-forward (format "%s" id) nil t))
+
+
+;;; Implementation definition:
+
+(define-geiser-implementation chez
+ (binary geiser-gauche--binary)
+ (arglist geiser-gauche--parameters)
+ (version-command geiser-gauche--version)
+ (minimum-version geiser-gauche-minimum-version)
+ (repl-startup geiser-gauche--startup)
+ (prompt-regexp geiser-gauche--prompt-regexp)
+ (debugger-prompt-regexp nil) ;; geiser-gauche--debugger-prompt-regexp
+ ;; (enter-debugger geiser-gauche--enter-debugger)
+ (marshall-procedure geiser-gauche--geiser-procedure)
+ (find-module geiser-gauche--get-module)
+ ;; (enter-command geiser-gauche--enter-command)
+ (exit-command geiser-gauche--exit-command)
+ (import-command geiser-gauche--import-command)
+ (find-symbol-begin geiser-gauche--symbol-begin)
+ (display-error geiser-gauche--display-error)
+ ;; (external-help geiser-gauche--manual-look-up)
+ ;; (check-buffer geiser-gauche--guess)
+ ;; (keywords geiser-gauche--keywords)
+ ;; (case-sensitive geiser-gauche-case-sensitive-p)
+ )
+
+(geiser-impl--add-to-alist 'regexp "\\.ss$" 'chez t)
+(geiser-impl--add-to-alist 'regexp "\\.def$" 'chez t)
+
+(provide 'geiser-gauche)
diff --git a/geiser.scm b/geiser.scm
new file mode 100644
index 0000000..3fa6757
--- /dev/null
+++ b/geiser.scm
@@ -0,0 +1,70 @@
+(define-module geiser
+ (use srfi-13)
+ (use gauche.interactive)
+ (export
+ geiser:macroexpand
+ geiser:eval
+ geiser:newline
+ geiser:autodoc
+ geiser:load-file
+ geiser:no-values
+ geiser:completions
+ geiser:module-completions
+ ;; Missing functions:
+ ;; geiser-start-server
+ ;; geiser-object-signature
+ ;; geiser-symbol-location
+ ;; geiser-symbol-documentation
+ ;; geiser-find-file
+ ;; geiser-add-to-load-path
+ ;; geiser-compile-file
+ ;; geiser-compile
+ ;; geiser-module-path
+ ;; geiser-module-location
+ ))
+
+(select-module geiser)
+
+(define (geiser:macroexpand form . rest)
+ (with-output-to-string
+ (cut pprint (macroexpand form))))
+
+(define (geiser:eval module-name form . rest)
+ (let ((module (or (find-module module-name)
+ (current-module))))
+ (with-output-to-string
+ (cut eval form module))))
+
+(define (geiser:autodoc ids . rest)
+ (map (cut ~ <> 'info)
+ ids))
+
+(define (geiser:load-file filename)
+ (load filename))
+
+(define (geiser:newline)
+ (newline))
+
+(define (geiser:no-values)
+ (values))
+
+;;; Completions
+
+(define (geiser:completions prefix)
+ (delete-duplicates
+ (remove
+ (^x (or (string=? x "")
+ (string-prefix? "(" x)
+ (not (global-variable-bound? (current-module)
+ (string->symbol x)))))
+ (string-split
+ (with-output-to-string
+ (cut apropos (string->regexp (string-append "^" prefix))))
+ #/\s+/))))
+
+(define (geiser:module-completions prefix)
+ (filter
+ (cut string-prefix? prefix <>)
+ (map (^x (symbol->string (module-name x)))
+ (all-modules))))
+
- [nongnu] branch elpa/geiser-gauche created (now 66e5143), Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-gauche 56a765b 013/119: Add gauche to the list of active implementations, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-gauche eb2c912 005/119: Cleanup geiser-gauche--startup, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-gauche 0656f2f 010/119: Fix geiser:eval, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-gauche 95333c1 004/119: Implement geiser-gauche--version, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-gauche 432f570 001/119: Create README.md, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-gauche e70d9ed 019/119: Cleanup, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-gauche 202336b 006/119: Add case-sensitivity variable, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-gauche 60c95ca 002/119: Add initial version of geiser.scm and geiser-gauche.el,
Philip Kaludercic <=
- [nongnu] elpa/geiser-gauche 6da3f02 011/119: Fix geiser:eval, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-gauche b474b09 014/119: Don't filter completions based on context (for now), Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-gauche 9dafd9f 079/119: License-related updates, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-gauche 04208f5 075/119: Cleanup Cask file, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-gauche 687713c 085/119: Update README.md, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-gauche f1ccc62 086/119: Update README.md, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-gauche f9064d8 003/119: Implement get-module and other Emacs functions, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-gauche ca7629e 012/119: geieser-gauche fixes, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-gauche 4cb8586 007/119: Fix gauche prompt regexp, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-gauche 5876bc2 018/119: Deal with dotted signatures in autodoc, Philip Kaludercic, 2021/08/01