xemacs-beta: lisp/hash-table.el annotate

annotate lisp/hash-table.el @ 5556:a142ad1a9140

Use dlsym() in preference to NSLookupSymbolInModule() on Darwin, if available. ChangeLog addition: 2011-08-24 Aidan Kehoe <kehoea@parhasard.net> * configure.ac: On OS X, if dlopen() is available in dlfcn.h, use it in preference to dyld; the latter API is deprecated. Move DLSYM_NEEDS_UNDERSCORE together with HAVE_DLYD, it's not needed if the dlsym() and dlopen() APIs are being used. Define REALPATH_CORRECTS_CASE, DEFAULT_FILE_SYSTEM_IGNORE_CASE in this file, don't define them in terms of HAVE_DYLD in src/config.h.in. * configure: Regenerate. src/ChangeLog addition: 2011-08-24 Aidan Kehoe <kehoea@parhasard.net> * config.h.in: Move REALPATH_CORRECTS_CASE, DEFAULT_FILE_SYSTEM_IGNORE_CASE to ../configure.ac rather than implementing them in terms of HAVE_DYLD here.

author	Aidan Kehoe <kehoea@parhasard.net>
date	Wed, 24 Aug 2011 23:41:29 +0100
parents	308d34e9f07d
children

rev	line source
502 7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	1 ;;; hash-table.el --- hash-table utility functions
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	2
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	3 ;; Copyright (C) 2000 Ben Wing.
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	4
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	5 ;; Author: Ben Wing
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	6 ;; Maintainer: XEmacs Development Team
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	7 ;; Keywords: internal, dumped
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	8
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	9 ;; This file is part of XEmacs.
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	10
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5271 diff changeset	11 ;; XEmacs is free software: you can redistribute it and/or modify it
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5271 diff changeset	12 ;; under the terms of the GNU General Public License as published by the
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5271 diff changeset	13 ;; Free Software Foundation, either version 3 of the License, or (at your
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5271 diff changeset	14 ;; option) any later version.
502 7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	15
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5271 diff changeset	16 ;; XEmacs is distributed in the hope that it will be useful, but WITHOUT
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5271 diff changeset	17 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5271 diff changeset	18 ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5271 diff changeset	19 ;; for more details.
502 7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	20
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	21 ;; You should have received a copy of the GNU General Public License
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5271 diff changeset	22 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>.
502 7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	23
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	24 ;;; Synched up with: Not in FSF.
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	25
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	26 ;;; Authorship:
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	27
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	28 ;; Created July 2000 by Ben Wing.
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	29
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	30 ;;; Commentary:
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	31
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	32 ;; This file is dumped with XEmacs.
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	33
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	34 ;;; Code:
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	35
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	36 (defun hash-table-key-list (hash-table)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	37 "Return a list of all keys in HASH-TABLE."
5271 2def0d83a5e3 Don't uselessly call #'nreverse, #'hash-table-key-list and friends. Aidan Kehoe <kehoea@parhasard.net> parents: 502 diff changeset	38 (let (list)
2def0d83a5e3 Don't uselessly call #'nreverse, #'hash-table-key-list and friends. Aidan Kehoe <kehoea@parhasard.net> parents: 502 diff changeset	39 (maphash #'(lambda (key value) (push key list)) hash-table)
2def0d83a5e3 Don't uselessly call #'nreverse, #'hash-table-key-list and friends. Aidan Kehoe <kehoea@parhasard.net> parents: 502 diff changeset	40 list))
502 7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	41
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	42 (defun hash-table-value-list (hash-table)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	43 "Return a list of all values in HASH-TABLE."
5271 2def0d83a5e3 Don't uselessly call #'nreverse, #'hash-table-key-list and friends. Aidan Kehoe <kehoea@parhasard.net> parents: 502 diff changeset	44 (let (list)
2def0d83a5e3 Don't uselessly call #'nreverse, #'hash-table-key-list and friends. Aidan Kehoe <kehoea@parhasard.net> parents: 502 diff changeset	45 (maphash #'(lambda (key value) (push value list)) hash-table)
2def0d83a5e3 Don't uselessly call #'nreverse, #'hash-table-key-list and friends. Aidan Kehoe <kehoea@parhasard.net> parents: 502 diff changeset	46 list))
502 7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	47
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	48 (defun hash-table-key-value-alist (hash-table)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	49 "Return an alist of (KEY . VALUE) for all keys and values in HASH-TABLE."
5271 2def0d83a5e3 Don't uselessly call #'nreverse, #'hash-table-key-list and friends. Aidan Kehoe <kehoea@parhasard.net> parents: 502 diff changeset	50 (let (list)
2def0d83a5e3 Don't uselessly call #'nreverse, #'hash-table-key-list and friends. Aidan Kehoe <kehoea@parhasard.net> parents: 502 diff changeset	51 (maphash #'(lambda (key value) (setq list (acons key value list)))
502 7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	52 hash-table)
5271 2def0d83a5e3 Don't uselessly call #'nreverse, #'hash-table-key-list and friends. Aidan Kehoe <kehoea@parhasard.net> parents: 502 diff changeset	53 list))
502 7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	54
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	55 (defun hash-table-key-value-plist (hash-table)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	56 "Return a plist for all keys and values in HASH-TABLE.
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	57 A plist is a simple list containing alternating keys and values."
5271 2def0d83a5e3 Don't uselessly call #'nreverse, #'hash-table-key-list and friends. Aidan Kehoe <kehoea@parhasard.net> parents: 502 diff changeset	58 (let (list)
2def0d83a5e3 Don't uselessly call #'nreverse, #'hash-table-key-list and friends. Aidan Kehoe <kehoea@parhasard.net> parents: 502 diff changeset	59 (maphash #'(lambda (key value) (setq list (list* key value list)))
502 7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	60 hash-table)
5271 2def0d83a5e3 Don't uselessly call #'nreverse, #'hash-table-key-list and friends. Aidan Kehoe <kehoea@parhasard.net> parents: 502 diff changeset	61 list))

Mercurial > hg > xemacs-beta

annotate lisp/hash-table.el @ 5556:a142ad1a9140