Return to utils.el 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/utils.el, revision 1.1

1.1     ! root        1: ;;
        !             2: ;; copyright (C) 1987, 1988 Franz Inc, Berkeley, Ca.
        !             3: ;;
        !             4: ;; The software, data and information contained herein are the property 
        !             5: ;; of Franz, Inc.  
        !             6: ;;
        !             7: ;; This file (or any derivation of it) may be distributed without 
        !             8: ;; further permission from Franz Inc. as long as:
        !             9: ;;
        !            10: ;;     * it is not part of a product for sale,
        !            11: ;;     * no charge is made for the distribution, other than a tape
        !            12: ;;       fee, and
        !            13: ;;     * all copyright notices and this notice are preserved.
        !            14: ;;
        !            15: ;; If you have any comments or questions on this interface, please feel
        !            16: ;; free to contact Franz Inc. at
        !            17: ;;     Franz Inc.
        !            18: ;;     Attn: Kevin Layer
        !            19: ;;     1995 University Ave
        !            20: ;;     Suite 275
        !            21: ;;     Berkeley, CA 94704
        !            22: ;;     (415) 548-3600
        !            23: ;; or
        !            24: ;;     emacs-info%[email protected]
        !            25: ;;     ucbvax!franz!emacs-info
        !            26: 
        !            27: ;; $Header: utils.el,v 1.3 89/02/14 17:24:43 layer Exp $
        !            28: 
        !            29: ;;; Misc utilities
        !            30: 
        !            31: (defun fi::symbol-value-in-buffer (symbol buffer)
        !            32:   "Return the value of the local binding of SYMBOL in BUFFER, or
        !            33: nil if non-exists.  Yes, a value of nil and no local value are the same."
        !            34:   (save-excursion
        !            35:     ;; the `set-buffer' non-sense is because there is a cache which is only
        !            36:     ;; updated when a `set-buffer' is done.
        !            37:     (set-buffer buffer)
        !            38:     (cdr (assoc symbol (buffer-local-variables buffer)))))
        !            39: 
        !            40: (defun fi::set-in-buffer (symbol value buffer)
        !            41:   "Set the value of the local binding of SYMBOL to VALUE in BUFFER, or
        !            42: nil if non-exists.  Yes, a value of nil and no local value are the same."
        !            43:   (save-excursion
        !            44:     ;; the `set-buffer' non-sense is because there is a cache which is only
        !            45:     ;; updated when a `set-buffer' is done.
        !            46:     (set-buffer buffer)
        !            47:     (make-local-variable symbol)
        !            48:     (set symbol value)))
        !            49: 
        !            50: (defun fi::file-name-sans-type (name)
        !            51:   "Return FILENAME sans file extension or type."
        !            52:   (substring name 0
        !            53:             (or (string-match "\\.cl$" name)
        !            54:                 (string-match "\\.lisp$" name)
        !            55:                 (string-match "\\.l$" name)
        !            56:                 (length name))))
        !            57: 
        !            58: (defun fi::substitute-chars-in-string (char-assoc-list string)
        !            59:   "Substitute character pairs of CHAR-ASSOC-LIST in STRING."
        !            60:   (let (pair)
        !            61:     (mapconcat '(lambda (char)
        !            62:                 (if (setq pair (assq char char-assoc-list))
        !            63:                     (char-to-string (cdr pair))
        !            64:                   (char-to-string char)))
        !            65:               string
        !            66:               nil)))
        !            67: 
        !            68: (defun fi::remove-chars-from-string (char-list string)
        !            69:   "Remove characters in CHAR-LIST from string STRING and return the result."
        !            70:   (mapconcat '(lambda (char)
        !            71:               (if (memq char char-list)
        !            72:                   nil
        !            73:                 (char-to-string char)))
        !            74:             string
        !            75:             nil))
        !            76: 
        !            77: (defun fi::process-running (buffer-name)
        !            78:   (let (temp)
        !            79:     (and (setq temp (get-buffer buffer-name))
        !            80:         (setq temp (get-buffer-process temp))
        !            81:         (setq temp (process-status temp))
        !            82:         (or (eq 'run temp) (eq 'open temp)))))
        !            83: 
        !            84: (defun fi::find-other-end-of-list (&optional arg)
        !            85:   (if (null arg) (setq arg 1))
        !            86:   (save-excursion
        !            87:     (cond ((= (preceding-char) ?\)) (scan-sexps (point) (- arg)))
        !            88:          ((= (following-char) ?\() (scan-sexps (point) arg))
        !            89:          ((= (following-char) ?\))
        !            90:           (forward-char 1) (scan-sexps (point) (- arg)))
        !            91:          (t (error "not on the beginning or end of a list")))))
        !            92: 
        !            93: (defun fi::find-path (string)
        !            94:   (let ((p load-path)
        !            95:        (done nil) res)
        !            96:     (while (and (not done) p)
        !            97:       (if (file-exists-p (setq res (concat (car p) "/" string)))
        !            98:          (setq done t)
        !            99:        (setq res nil))
        !           100:       (setq p (cdr p)))
        !           101:     res))

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