Return to clinit.cl CVS log

Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / dist-1.3 / fi

Annotation of 43BSDReno/contrib/emacs-18.55/dist-1.3/fi/clinit.cl, revision 1.1.1.1

1.1       root        1: ;; $Header: clinit.cl,v 1.8 89/02/14 17:17:05 layer Exp $
                      2: 
                      3: #|
                      4: 
                      5: ;; Put the following single line in your .login file:
                      6: 
                      7: setenv EMACSLIBRARY /usr/local/lib/emacs
                      8: 
                      9: ;; Then, put the following single form in your .emacs file:
                     10: 
                     11: (setq fi:unix-domain-socket
                     12:   (format "/tmp/%s_emacs_to_acl" (user-login-name)))
                     13: 
                     14: ;; Then, put the following single form in your .clinit file:
                     15: 
                     16: (defparameter *emacs-library*
                     17:   (let ((emacs-lib (si:getenv "EMACSLIBRARY")))
                     18:     (if emacs-lib (format nil "~a/lisp/fi/" emacs-lib))))
                     19: 
                     20: ;; plus one of the following three forms (after the above form)
                     21: 
                     22: ;;;;;;; Form 1
                     23: ;; this will load the ipc package and unconditionally start it up
                     24: (and *emacs-library*
                     25:      (load (merge-pathnames "clinit.cl" *emacs-library*))
                     26:      (load-and-start-ipc-package))
                     27: 
                     28: ;;;;;;; Form 2
                     29: ;; this will load the ipc package and start it up when `+ipc' is given on
                     30: ;; the Allegro CL command line.  For example, if you put the following in
                     31: ;; your .emacs file:
                     32: ;;
                     33: ;;     (setq fi:common-lisp-image-arguments '("+ipc"))
                     34: ;;
                     35: ;; then when you startup Allegro CL from within emacs (fi:common-lisp) you
                     36: ;; will automatically load and start the emacs/lisp interface.
                     37: (and *emacs-library*
                     38:      (find "+ipc" (system:command-line-arguments) :test #'string=)
                     39:      (load (merge-pathnames "clinit.cl" *emacs-library*))
                     40:      (load-and-start-ipc-package))
                     41: 
                     42: ;;;;;;; Form 3
                     43: ;; this will load the ipc package and require you to start it manually
                     44: ;; with the top-level command `:listen'.
                     45: (tpl:alias "listen" ()
                     46:   (and *emacs-library*
                     47:        (load (merge-pathnames "clinit.cl" *emacs-library*))
                     48:        (load-and-start-ipc-package)))
                     49: 
                     50: |#
                     51: 
                     52: ;;;;; NOTE:
                     53: ;; The rest of this file will be loaded when the forms you just added
                     54: ;; to your .clinit.cl are evaluated, so there is no need to put it in your
                     55: ;; .clinit.cl!!!
                     56: 
                     57: (defmacro svalue (package symbol)
                     58:   `(let ((p ,package) (s ,symbol))
                     59:      (values (find-symbol (symbol-name s) p))))
                     60: 
                     61: (defun load-and-start-ipc-package (&key (unix-domain nil udp))
                     62:   (excl::handler-case 
                     63:    (let ((emacs-library
                     64:          (format nil "~a/lisp/fi/" (si:getenv "EMACSLIBRARY"))))
                     65:      (if* emacs-library
                     66:        then (let* ((first (car si:*require-search-list*))
                     67:                    (do-pop (atom first)))
                     68:               (if do-pop (pop si:*require-search-list*))
                     69:               (push (make-pathname :directory emacs-library :type "fasl")
                     70:                     si:*require-search-list*)
                     71:               (push first si:*require-search-list*))
                     72:             (if (find-package :ipc)
                     73:                 (set (svalue :ipc :lisp-listener-daemon-ff-loaded) nil))
                     74:             (require :ipc)
                     75:             (require :emacs)
                     76:             (if udp (set (svalue :ipc :*unix-domain*) unix-domain))
                     77:             (let ((s (svalue :ipc :*socket-pathname*))
                     78:                   (socket-file
                     79:                    (format nil "/tmp/~a_emacs_to_acl"
                     80:                            (excl::userid-to-name
                     81:                             (funcall (svalue :ipc :getuid))))))
                     82:               (if (boundp s) (set s socket-file))
                     83:               (funcall (svalue :ipc :start-lisp-listener-daemon)))
                     84:        else (format t "~%EMACSLIBRARY is not in the environment~%")))
                     85:    (error (condition) (format t "error during ipc initialization: ~a"
                     86:                              condition))))

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.