blob: 329beeac6fa222655d71fb784aa96c6f51ec3f16 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
;;; geiser-inf.el -- inferior scheme processes
;; Copyright (c) 2010 Jose Antonio Ortega Ruiz
;; 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>.
;; Start date: Thu Nov 11, 2010 01:04
(require 'geiser-impl)
(require 'geiser-base)
(require 'cmuscheme)
;; Implementation-dependent parameters
(geiser-impl--define-caller geiser-inf--binary binary ()
"A variable or function returning the path to the scheme binary
for this implementation.")
(geiser-impl--define-caller geiser-inf--arglist arglist ()
"A function taking no arguments and returning a list of
arguments to be used when invoking the scheme binary.")
(geiser-impl--define-caller geiser-inf--prompt-re inferior-prompt-regexp ()
"A variable (or thunk returning a value) giving the regular
expression for this implementation's inferior scheme prompt. By default,
cmuscheme's prompt regexp will be used.")
(geiser-impl--define-caller geiser-inf--init-server-cmd init-server-command ()
"A variable (or thunk returning a value) giving the REPL server
initialization command for local processes. The command must return a
list of the form (server PORT).")
;; Auxiliary functions
(defun geiser-inf--wait-for-prompt (timeout)
(let ((p (point)) (seen) (buffer (current-buffer)))
(while (and (not seen)
(> timeout 0)
(get-buffer-process buffer))
(sleep-for 0.1)
(setq timeout (- timeout 100))
(goto-char p)
(setq seen (re-search-forward comint-prompt-regexp nil t)))
(goto-char (point-max))
(unless seen (error "%s" "No prompt found!"))))
(defun geiser-inf--make-buffer (impl)
(with-current-buffer (generate-new-buffer (format " * inferior %s *" impl))
(inferior-scheme-mode)
(current-buffer)))
(defun geiser-inf--sentinel (proc evnt)
(let ((buff (process-buffer proc)))
(when (buffer-live-p buff) (kill-buffer buff))))
;; Starting an inferior REPL
(defun geiser-inf--run-scheme (impl)
(let ((bin (geiser-inf--binary impl))
(args (geiser-inf--arglist impl))
(prompt-rx (geiser-inf--prompt-re impl)))
(unless (and bin args)
(error "Sorry, I don't know how to start %s" impl))
(with-current-buffer (geiser-inf--make-buffer impl)
(when prompt-rx comint-prompt-regexp prompt-rx)
(condition-case err
(apply 'make-comint-in-buffer
`(,(buffer-name) ,(current-buffer) ,bin nil ,@args))
(error (error "Error starting inferior %s REPL: %s"
impl (error-message-string err))))
(geiser-inf--wait-for-prompt 10000)
(set-process-sentinel (get-buffer-process (current-buffer))
'geiser-inf--sentinel)
(cons (current-buffer)
(comint-redirect-results-list (geiser-inf--init-server-cmd impl)
"(port \\([0-9]+\\))"
1)))))
(provide 'geiser-inf)
|
