Fixed.
[riece] / lisp / riece-ruby.el
1 ;;; riece-ruby.el --- interact with Ruby interpreter
2 ;; Copyright (C) 1998-2005 Daiki Ueno
3
4 ;; Author: Daiki Ueno <ueno@unixuser.org>
5 ;; Created: 1998-09-28
6 ;; Keywords: IRC, riece
7
8 ;; This file is part of Riece.
9
10 ;; This program is free software; you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 2, or (at your option)
13 ;; any later version.
14
15 ;; This program is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
18 ;; GNU General Public License for more details.
19
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA.
24
25 ;;; Commentary:
26
27 ;; riece-ruby.el is a library to interact with the Ruby interpreter.
28 ;; It supports concurrent execution of Ruby programs in a single
29 ;; session.  For example:
30 ;; 
31 ;; (riece-ruby-execute "t1" "sleep 30"); returns immediately
32 ;; => nil
33 ;;
34 ;; (riece-ruby-execute "t2" "1 + 1")
35 ;; => nil
36 ;;
37 ;; (riece-ruby-execute "t3" "\"")
38 ;; => nil
39 ;;
40 ;; (riece-ruby-inspect "t1")
41 ;; => ((OK nil) nil "running")
42 ;;
43 ;; (riece-ruby-inspect "t2")
44 ;; => ((OK nil) "2" "finished")
45 ;;
46 ;; (riece-ruby-inspect "t3")
47 ;; => ((OK nil) "(eval):1:in `dispatch_eval': compile error
48 ;; (eval):1: unterminated string meets end of file" "exited")
49
50 ;;; Code:
51
52 (defvar riece-ruby-command "ruby"
53   "Command name for Ruby interpreter.")
54
55 (defvar riece-ruby-process nil)
56
57 (defvar riece-ruby-lock nil)
58 (defvar riece-ruby-response nil)
59 (defvar riece-ruby-data nil)
60 (defvar riece-ruby-input nil)
61 (defvar riece-ruby-status nil)
62
63 (defvar riece-ruby-output-handler-alist nil)
64 (defvar riece-ruby-exit-handler-alist nil)
65
66 (defun riece-ruby-substitute-variables (program variable value)
67   (setq program (copy-sequence program))
68   (let ((pointer program))
69     (while pointer
70       (setq pointer (memq variable program))
71       (if pointer
72           (setcar pointer value)))
73     program))
74
75 (defun riece-ruby-escape-data (data)
76   (let ((index 0))
77     (while (string-match "[%\r\n]+" data index)
78       (setq data (replace-match
79                   (mapconcat (lambda (c) (format "%%%02X" c))
80                              (match-string 0 data) "")
81                   nil nil data)
82             index (+ (match-end 0)
83                      (* (- (match-end 0) (match-beginning 0)) 2))))
84     data))
85
86 (defun riece-ruby-unescape-data (data)
87   (let ((index 0))
88     (while (string-match "%\\([0-9A-F][0-9A-F]\\)" data index)
89       (setq data (replace-match
90                   (read (concat "\"\\x" (match-string 1 data) "\""))
91                   nil nil data)
92             index (- (match-end 0) 2)))
93     data))
94
95 (defun riece-ruby-send-eval (name program)
96   (let* ((string (riece-ruby-escape-data program))
97          (length (- (length string) 998))
98          (index 0)
99          data)
100     (while (< index length)
101       (setq data (cons (substring string index (setq index (+ index 998)))
102                        data)))
103     (setq data (cons (substring string index) data)
104           data (nreverse data))
105     (save-excursion
106       (set-buffer (process-buffer riece-ruby-process))
107       (make-local-variable 'riece-ruby-lock)
108       (setq riece-ruby-lock nil)
109       (make-local-variable 'riece-ruby-response)
110       (setq riece-ruby-response nil)
111       (make-local-variable 'riece-ruby-data)
112       (setq riece-ruby-data nil)
113       (make-local-variable 'riece-ruby-input)
114       (setq riece-ruby-input nil)
115       (make-local-variable 'riece-ruby-status)
116       (setq riece-ruby-status nil))
117     (process-send-string riece-ruby-process
118                          (concat "EVAL " name "\r\n"))
119     (while data
120       (process-send-string riece-ruby-process
121                            (concat "D " (car data) "\r\n"))
122       (setq data (cdr data)))
123     (process-send-string riece-ruby-process "END\r\n")))
124     
125 (defun riece-ruby-send-poll (name)
126   (save-excursion
127     (set-buffer (process-buffer riece-ruby-process))
128     (make-local-variable 'riece-ruby-lock)
129     (setq riece-ruby-lock nil)
130     (make-local-variable 'riece-ruby-response)
131     (setq riece-ruby-response nil)
132     (make-local-variable 'riece-ruby-data)
133     (setq riece-ruby-data nil)
134     (make-local-variable 'riece-ruby-input)
135     (setq riece-ruby-input nil)
136     (make-local-variable 'riece-ruby-status)
137     (setq riece-ruby-status nil))
138   (process-send-string riece-ruby-process
139                        (concat "POLL " name "\r\n")))
140
141 (defun riece-ruby-filter (process input)
142   (save-excursion
143     (set-buffer (process-buffer process))
144     (goto-char (point-max))
145     (insert input)
146     (goto-char (process-mark process))
147     (beginning-of-line)
148     (while (looking-at ".*\r?\n")
149       (if (looking-at "OK\\( \\(.*\\)\\)?\r")
150           (progn
151             (if riece-ruby-input
152                 (setq riece-ruby-data (mapconcat #'riece-ruby-unescape-data
153                                                  riece-ruby-input "")))
154             (setq riece-ruby-input nil
155                   riece-ruby-response (list 'OK (match-string 2))
156                   riece-ruby-lock nil))
157         (if (looking-at "ERR \\([0-9]+\\)\\( \\(.*\\)\\)?\r")
158             (progn
159               (setq riece-ruby-input nil
160                     riece-ruby-response
161                     (list 'ERR (string-to-number (match-string 2))
162                           (match-string 3))
163                     riece-ruby-lock nil))
164           (if (looking-at "D \\(.*\\)\r")
165               (setq riece-ruby-input (cons (match-string 1) riece-ruby-input))
166             (if (looking-at "S program \\(.*\\)\r")
167                 (setq riece-ruby-status (match-string 1))
168               (if (looking-at "# output \\(.*\\) \\(.*\\)\r")
169                   (let ((entry (assoc (match-string 1)
170                                       riece-ruby-output-handler-alist)))
171                     (if entry
172                         (funcall (cdr entry) (match-string 2))))
173                 (if (looking-at "# exit \\(.*\\)\r")
174                     (let ((entry (assoc (match-string 1)
175                                         riece-ruby-exit-handler-alist)))
176                       (if entry
177                           (funcall (cdr entry))))))))))
178       (forward-line))
179     (set-marker (process-mark process) (point-marker))))
180
181 (defun riece-ruby-sentinel (process status)
182   (kill-buffer (process-buffer process)))
183
184 (defun riece-ruby-execute (name program)
185   (unless (and riece-ruby-process
186                (eq (process-status riece-ruby-process) 'run))
187     (setq riece-ruby-process
188           (start-process "riece-ruby" (generate-new-buffer " *Ruby*")
189                          riece-ruby-command
190                          (expand-file-name
191                           "rubyserv.rb"
192                           (file-name-directory
193                            (symbol-file 'riece-ruby-execute)))))
194     (set-process-filter riece-ruby-process #'riece-ruby-filter)
195     (set-process-sentinel riece-ruby-process #'riece-ruby-sentinel))
196   (save-excursion
197     (set-buffer (process-buffer riece-ruby-process))
198     (setq riece-ruby-lock t)
199     (riece-ruby-send-eval name program)
200     (while riece-ruby-lock
201       (accept-process-output riece-ruby-process))))
202
203 (defun riece-ruby-inspect (name)
204   (save-excursion
205     (set-buffer (process-buffer riece-ruby-process))
206     (setq riece-ruby-lock t)
207     (riece-ruby-send-poll name)
208     (while (null riece-ruby-response)
209       (accept-process-output riece-ruby-process))
210     (list riece-ruby-response
211           riece-ruby-data
212           riece-ruby-status)))
213
214 (provide 'riece-ruby)
215
216 ;;; riece-ruby.el ends here