steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Added factor-synopsis to factor.el

wayo.cavazos 2006-05-26 00:22:45 +00:00
parent 2235fbf8c0
commit eeedd0e3cf
2 changed files with 28 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
contrib/factor.el
View File

@ -3,7 +3,7 @@
(define-derived-mode factor-listener-mode comint-mode "Factor listener" (define-derived-mode factor-listener-mode comint-mode "Factor listener"
(setq comint-prompt-regexp "^ ")) (setq comint-prompt-regexp "^ "))
(defvar factor-binary "/storage/factor/factor-0.82/f") (defvar factor-binary "/scratch/factor-darcs/repos/Factor/f")
(defvar factor-image "/scratch/factor-darcs/repos/Factor/factor.image") (defvar factor-image "/scratch/factor-darcs/repos/Factor/factor.image")
(defun factor-server () (defun factor-server ()
@ -11,12 +11,23 @@
(make-comint "factor-server" factor-binary nil factor-image "-shell=tty") (make-comint "factor-server" factor-binary nil factor-image "-shell=tty")
(comint-send-string "*factor-server*" "USE: jedit telnet\n")) (comint-send-string "*factor-server*" "USE: jedit telnet\n"))
;; (defun factor-listener ()
;; (interactive)
;; (factor-server)
;; (sleep-for 0 500)
;; (switch-to-buffer (make-comint "factor-listener" '("localhost" . 9999)))
;; (rename-uniquely)
;; (factor-listener-mode))
(defun factor-listener () (defun factor-listener ()
(interactive) (interactive)
(factor-server) (factor-server)
(sleep-for 0 500) (sleep-for 0 500)
(if (get-buffer "*factor-listener*")
(save-excursion
(set-buffer "*factor-listener*")
(rename-uniquely)))
(switch-to-buffer (make-comint "factor-listener" '("localhost" . 9999))) (switch-to-buffer (make-comint "factor-listener" '("localhost" . 9999)))
(rename-uniquely)
(factor-listener-mode)) (factor-listener-mode))
(defun factor-listener-restart () (defun factor-listener-restart ()
@ -40,11 +51,24 @@
(defvar factor-update-stackp nil "*") (defvar factor-update-stackp nil "*")
(defun factor-send-input () (interactive) (defun factor-send-input ()
(interactive)
(comint-send-input) (comint-send-input)
(if factor-update-stackp (if factor-update-stackp
(progn (sleep-for 0 250) (factor-update-stack-buffer)))) (progn (sleep-for 0 250) (factor-update-stack-buffer))))
(defun factor-synopsis ()
(interactive)
(message
(first
(comint-redirect-results-list-from-process
(get-buffer-process "*factor-listener*")
(format "\\ %s synopsis print" (thing-at-point 'symbol))
;; "[ ]*\\(.*\\)\n"
"\\(.*\\)\n"
1))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; mode ;; mode

2
contrib/x11/load.factor
View File

@ -1,6 +1,6 @@
USING: kernel parser words compiler sequences ; USING: kernel parser words compiler sequences ;
"contrib/concurrency/load.factor" run-resource ! contrib/x11 depends on contrib/concurrency
{ "rectangle" "x" "draw-string" "concurrent-widgets" "gl" } { "rectangle" "x" "draw-string" "concurrent-widgets" "gl" }
[ "/contrib/x11/" swap ".factor" append3 run-resource ] each [ "/contrib/x11/" swap ".factor" append3 run-resource ] each