Mercurial > hg > xemacs-beta
annotate lisp/alist.el @ 5940:c608d4b0b75e cygwin64 tip
rescue lost branch from 64bit.backup
| author | Henry Thompson <ht@markup.co.uk> |
|---|---|
| date | Thu, 16 Dec 2021 18:48:58 +0000 |
| parents | b9167d522a9a |
| children |
| rev | line source |
|---|---|
| 428 | 1 ;;; alist.el --- utility functions about association-list |
| 2 | |
| 3 ;; Copyright (C) 1993,1994,1995,1996,1998 Free Software Foundation, Inc. | |
| 4 | |
| 5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> | |
| 6 ;; Keywords: alist | |
| 7 | |
| 8 ;; This file is part of APEL (A Portable Emacs Library). | |
| 9 | |
|
5404
91b3aa59f49b
Convert lisp/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
4783
diff
changeset
|
10 ;; XEmacs is free software: you can redistribute it and/or modify it |
|
91b3aa59f49b
Convert lisp/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
4783
diff
changeset
|
11 ;; under the terms of the GNU General Public License as published by the |
|
91b3aa59f49b
Convert lisp/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
4783
diff
changeset
|
12 ;; Free Software Foundation, either version 3 of the License, or (at your |
|
91b3aa59f49b
Convert lisp/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
4783
diff
changeset
|
13 ;; option) any later version. |
| 428 | 14 |
| 15 ;; This program is distributed in the hope that it will be useful, but | |
| 16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
| 18 ;; General Public License for more details. | |
| 19 | |
| 20 ;; You should have received a copy of the GNU General Public License | |
|
5404
91b3aa59f49b
Convert lisp/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
4783
diff
changeset
|
21 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>. |
| 428 | 22 |
| 442 | 23 |
| 24 ;;;###autoload | |
| 25 (defun vassoc (key valist) | |
| 26 "Search VALIST for a vector whose first element is equal to KEY. | |
| 27 See also `assoc'." | |
| 28 ;; by Stig@hackvan.com | |
| 29 (let (el) | |
| 30 (catch 'done | |
| 31 (while (setq el (pop valist)) | |
| 32 (and (equal key (aref el 0)) | |
| 33 (throw 'done el)))))) | |
| 34 | |
| 428 | 35 |
| 36 ;;;###autoload | |
| 37 (defun put-alist (item value alist) | |
| 38 "Modify ALIST to set VALUE to ITEM. | |
| 39 If there is a pair whose car is ITEM, replace its cdr by VALUE. | |
| 40 If there is not such pair, create new pair (ITEM . VALUE) and | |
| 41 return new alist whose car is the new pair and cdr is ALIST. | |
| 42 \[tomo's ELIS like function]" | |
| 43 (let ((pair (assoc item alist))) | |
| 44 (if pair | |
| 45 (progn | |
| 46 (setcdr pair value) | |
| 47 alist) | |
| 48 (cons (cons item value) alist) | |
| 49 ))) | |
| 50 | |
| 51 ;;;###autoload | |
| 52 (defun del-alist (item alist) | |
| 53 "If there is a pair whose key is ITEM, delete it from ALIST. | |
| 54 \[tomo's ELIS emulating function]" | |
| 55 (if (equal item (car (car alist))) | |
| 56 (cdr alist) | |
| 57 (let ((pr alist) | |
| 58 (r (cdr alist)) | |
| 59 ) | |
| 60 (catch 'tag | |
| 61 (while (not (null r)) | |
| 62 (if (equal item (car (car r))) | |
| 63 (progn | |
| 64 (rplacd pr (cdr r)) | |
| 65 (throw 'tag alist))) | |
| 66 (setq pr r) | |
| 67 (setq r (cdr r)) | |
| 68 ) | |
| 69 alist)))) | |
| 70 | |
| 71 ;;;###autoload | |
| 72 (defun set-alist (symbol item value) | |
| 73 "Modify a alist indicated by SYMBOL to set VALUE to ITEM." | |
| 74 (or (boundp symbol) | |
| 75 (set symbol nil) | |
| 76 ) | |
| 77 (set symbol (put-alist item value (symbol-value symbol))) | |
| 78 ) | |
| 79 | |
| 80 ;;;###autoload | |
| 81 (defun remove-alist (symbol item) | |
| 82 "Remove ITEM from the alist indicated by SYMBOL." | |
| 83 (and (boundp symbol) | |
| 84 (set symbol (del-alist item (symbol-value symbol))) | |
| 85 )) | |
| 86 | |
| 87 ;;;###autoload | |
| 88 (defun modify-alist (modifier default) | |
| 89 "Modify alist DEFAULT into alist MODIFIER." | |
|
4783
e29fcfd8df5f
Eliminate most core code byte-compile warnings.
Aidan Kehoe <kehoea@parhasard.net>
parents:
613
diff
changeset
|
90 (mapc |
|
e29fcfd8df5f
Eliminate most core code byte-compile warnings.
Aidan Kehoe <kehoea@parhasard.net>
parents:
613
diff
changeset
|
91 (function |
|
e29fcfd8df5f
Eliminate most core code byte-compile warnings.
Aidan Kehoe <kehoea@parhasard.net>
parents:
613
diff
changeset
|
92 (lambda (as) |
|
e29fcfd8df5f
Eliminate most core code byte-compile warnings.
Aidan Kehoe <kehoea@parhasard.net>
parents:
613
diff
changeset
|
93 (setq default (put-alist (car as)(cdr as) default)))) |
|
e29fcfd8df5f
Eliminate most core code byte-compile warnings.
Aidan Kehoe <kehoea@parhasard.net>
parents:
613
diff
changeset
|
94 modifier) |
| 428 | 95 default) |
| 96 | |
| 97 ;;;###autoload | |
| 98 (defun set-modified-alist (sym modifier) | |
| 99 "Modify a value of a symbol SYM into alist MODIFIER. | |
| 100 The symbol SYM should be alist. If it is not bound, | |
| 101 its value regard as nil." | |
| 102 (if (not (boundp sym)) | |
| 103 (set sym nil) | |
| 104 ) | |
| 105 (set sym (modify-alist modifier (eval sym))) | |
| 106 ) | |
| 107 | |
| 108 | |
| 109 ;;; @ end | |
| 110 ;;; | |
| 111 | |
| 112 (provide 'alist) | |
| 113 | |
| 114 ;;; alist.el ends here |