home *** CD-ROM | disk | FTP | other *** search
/ Education Sampler 1992 [NeXTSTEP] / Education_1992_Sampler.iso / Programming / Source / winterp-1.13 / src-client / winterp.el < prev    next >
Encoding:
Text File  |  1991-10-06  |  6.0 KB  |  131 lines
  1. ; -*-Emacs-Lisp-*-
  2. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3. ;
  4. ; File:         winterp.el
  5. ; RCS:          $Header: winterp.el,v 1.2 89/12/15 17:48:27 mayer Exp $
  6. ; Description:  GNUEMACS lisp-mode interface to WINTERP.
  7. ; Author:       Niels Mayer, HPLabs
  8. ; Created:      Tue Nov 14 23:14:54 1989
  9. ; Modified:     Sat Oct  5 22:44:53 1991 (Niels Mayer) mayer@hplnpm
  10. ; Language:     Emacs-Lisp
  11. ; Package:      N/A
  12. ; Status:       X11r5 contrib tape release
  13. ;
  14. ; WINTERP Copyright 1989-1991 Hewlett-Packard Company (by Niels Mayer).
  15. ; XLISP version 2.1, Copyright (c) 1989, by David Betz.
  16. ;
  17. ; Permission to use, copy, modify, distribute, and sell this software and its
  18. ; documentation for any purpose is hereby granted without fee, provided that
  19. ; the above copyright notice appear in all copies and that both that
  20. ; copyright notice and this permission notice appear in supporting
  21. ; documentation, and that the name of Hewlett-Packard and David Betz not be
  22. ; used in advertising or publicity pertaining to distribution of the software
  23. ; without specific, written prior permission.  Hewlett-Packard and David Betz
  24. ; make no representations about the suitability of this software for any
  25. ; purpose. It is provided "as is" without express or implied warranty.
  26. ;
  27. ; HEWLETT-PACKARD AND DAVID BETZ DISCLAIM ALL WARRANTIES WITH REGARD TO THIS
  28. ; SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS,
  29. ; IN NO EVENT SHALL HEWLETT-PACKARD NOR DAVID BETZ BE LIABLE FOR ANY SPECIAL,
  30. ; INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
  31. ; LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
  32. ; OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  33. ; PERFORMANCE OF THIS SOFTWARE.
  34. ;
  35. ; See ./winterp/COPYRIGHT for information on contacting the authors.
  36. ; 
  37. ; Please send modifications, improvements and bugfixes to mayer@hplabs.hp.com
  38. ; Post XLISP-specific questions/information to the newsgroup comp.lang.lisp.x
  39. ;
  40. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  41.  
  42.  
  43. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  44. ;; Make sure shell.el is loaded, since this file uses stuff defined there.
  45. ;; None of this will work unless you load shell.el from emacs
  46. ;; versions >= 18.54. I also expect that lisp-mode has been preloaded into
  47. ;; gnuemacs (it is automatically loaded by default in "normal" gnuemacsen)
  48. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  49. (require 'shell)
  50.  
  51. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  52. (defvar winterp-client-shell "sh" 
  53.   "A shell in which to run the winterp-server client 'wl' any shell will do
  54. e.g. sh, csh, ksh....")
  55.  
  56. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  57. (defvar winterp-client-program "wl"
  58.   "The name of the client program that sends lisp expressions to the
  59. winterp lisp server. You may want to change this if you use a different
  60. client program, or if you  don't have 'wl' on your search path, you
  61. may want to specify a full path to 'wl'.") 
  62.  
  63. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  64. (defvar winterp-client-program-args ""
  65.   "This sets the arguments sent to 'wl'. You may want to set this to
  66. \"-h <hostname> -p <portnum>\" if you are running  winterp on a different
  67. host than gnuemacs, or if you want to run winterp on a TCP port other than
  68. the default, which is 23751.")
  69.  
  70. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  71. (defun winterp-send-defun ()
  72.   "A version of lisp-send-defun that talks to WINTERP's lisp server via the
  73. winterp client program 'wl' (which must be on your search path)."
  74.   (interactive)
  75.   (if (not (get-process "winterp-client-shell"))
  76.       (make-shell "winterp-client-shell" winterp-client-shell)
  77.     )
  78.   (let ((loadfile (format "/tmp/wl%d.lsp"
  79.               (process-id (get-process "winterp-client-shell")))))
  80.     (save-excursion (write-region
  81.              (progn (beginning-of-defun) (point))
  82.              (progn (end-of-defun) (point))
  83.              loadfile nil 'nomessage))
  84.     (process-send-string "winterp-client-shell"
  85.              (format "%s %s '(load \"%s\" :verbose nil :print t)'\n"
  86.                  winterp-client-program winterp-client-program-args
  87.                  loadfile))
  88.     )
  89.   )
  90.  
  91. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  92. (defun winterp-send-exit ()
  93.   "Calling this function will send WINTERP a command to exit the current
  94. breaklevel. If not at a breaklevel, then WINTERP will exit."
  95.   (interactive)
  96.   (if (not (get-process "winterp-client-shell"))
  97.       (make-shell "winterp-client-shell" winterp-client-shell)
  98.     )
  99.   ;;sending wl with no args sends an EOF to WINTERP which signals XLISP to
  100.   ;;exit the current breaklevel, or exit if not in the breakloop.
  101.   (process-send-string "winterp-client-shell" 
  102.                (format "%s %s\n"
  103.                    winterp-client-program winterp-client-program-args))
  104.   )
  105.  
  106. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  107. (defun winterp-send-buffer ()
  108.   "A version of winterp-send-defun that sends the entire buffer off to WINTERP
  109. for evaluation. This routine talks to WINTERP's lisp server via the winterp client
  110. program 'wl' (which must be on your search path)."
  111.   (interactive)
  112.   (if (not (get-process "winterp-client-shell"))
  113.       (make-shell "winterp-client-shell" winterp-client-shell)
  114.     )
  115.   (let ((loadfile (format "/tmp/wl%d.lsp"
  116.               (process-id (get-process "winterp-client-shell")))))
  117.     (save-excursion (write-region (point-min) (point-max)
  118.              loadfile nil 'nomessage))
  119.     (process-send-string "winterp-client-shell"
  120.              (format "%s %s '(load \"%s\" :verbose nil :print t)'\n"
  121.                  winterp-client-program winterp-client-program-args
  122.                  loadfile))
  123.     )
  124.   )
  125.  
  126. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  127. ;; rebind some keys in lisp-mode-map (assumed preloaded in gnuemacs).
  128. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  129. (define-key lisp-mode-map "\C-c\C-d" 'winterp-send-exit)
  130. (define-key lisp-mode-map "\e\C-x" 'winterp-send-defun)
  131.