Mercurial > hg > xemacs-beta
annotate lisp/alist.el @ 5724:ede80ef92a74
Make soft links in src for module source files, if built in to the executable.
This ensures that those files are built with the same compiler flags as all
other source files.
See these xemacs-beta messages:
<CAHCOHQn+q=Xuwq+y68dvqi7afAP9f-TdB7=8YiZ8VYO816sjHg@mail.gmail.com>
<f5by5ejqiyk.fsf@calexico.inf.ed.ac.uk>
| author | Jerry James <james@xemacs.org> |
|---|---|
| date | Sat, 02 Mar 2013 14:32:37 -0700 |
| 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 |