home *** CD-ROM | disk | FTP | other *** search
/ Education Sampler 1992 [NeXTSTEP] / Education_1992_Sampler.iso / Programming / Source / winterp-1.13 / contrib / xmu / gnu-hooks.lsp next >
Encoding:
Lisp/Scheme  |  1991-10-06  |  2.3 KB  |  55 lines

  1. ; -*-Lisp-*-
  2. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3. ;
  4. ; File:         gnu-hooks.lsp
  5. ; RCS:          $Header: $
  6. ; Description:  GNU Elisp Handler for WINTERP menu server
  7. ; Author:       Richard Hess, Consilium.
  8. ; Created:      Sat Oct  5 23:59:10 1991
  9. ; Modified:     Sun Oct  6 00:03:23 1991 (Niels Mayer) mayer@hplnpm
  10. ; Language:     Lisp
  11. ; Package:      N/A
  12. ; Status:       X11r5 contrib tape release
  13. ;
  14. ; WINTERP Copyright 1989, 1990, 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.  
  28. ; +---------------------------------------------------------------------------
  29. ;  WHO:    Richard Hess                    CORP:   Consilium
  30. ;  TITLE:  Staff Engineer                  VOICE:  [415] 691-6342
  31. ;      [ X-SWAT Team:  Special Projects ]  USNAIL: 640 Clyde Court
  32. ;  UUCP:   ...!uunet!cimshop!rhess                 Mountain View, CA 94043
  33. ; +---------------------------------------------------------------------------
  34.  
  35. (defvar *gnu_pick*  "/tmp/.xmu_output")      ;; the output file... [ HACK ]
  36.  
  37. (defun Gnu_cbk (tag)
  38.   "[ GNU ]:  handle the menu selection for GNU Elisp interface..."
  39.   (let* ((opt (open *gnu_pick* :direction :output))
  40.      )
  41.     (if tag
  42.     (format opt "~A~%" tag)
  43.       (format opt "~A~%" ""))
  44.     (close opt)
  45.     ))
  46.  
  47. (defun Gnu_Touch ()
  48.   "[ GNU ]:  touch the pick file... [ HACK ]"
  49.   (close (open *gnu_pick* :direction :output))
  50.   )
  51.  
  52. (Gnu_Touch)            ;; [ HACK ]:  initialize the output file...
  53.  
  54. ; -----------------------------------------------------------------------<eof>
  55.