MyGit

troyp/asoc.el

Fork: 6 Star: 40 (更新于 2024-11-11 22:20:32)

license: 暂无

Language: Emacs Lisp .

Emacs lisp association list (alist) library

GitHub网址

asoc.el -- Association List Library for Emacs Lisp.

asoc.el provides a complete API for handling association lists (alists). In addition to basic functions for creating, accessing and modifying alists, it provides mapping, filtering and folding facilities in both regular and anaphoric variants, a looping construct analogous to dolist (also with anaphoric variant), and a special variable for configuring the equality predicate used by asoc operations.

Table of Contents

API

A note on builtin list functions

Conventions

Variables

Constructor and Filter Functions

Predicates

Access Functions

Looping Constructs

Mapping Functions

Folds

Notes

Handling Alist Variants

Representation of Alists

Other Packages


API

A note on builtin list functions

For some operations, no distinction need be made between alists and general lists. asoc does not provide functions for such operations, since regular list functions may be used. For instance, cons, car, cdr, push, pop, append should be used for assembling and disassembling alists.


Conventions

Where appropriate, the asoc API follows established conventions for naming, argument order, etc. In particular, it follows the prefix conventions of dash.el:

  • asoc-: prefix for regular functions, macros and variables
  • asoc--: prefix for anaphoric macros
  • asoc---: prefix for private functions, macros and variables

The following suffixes are used:

  • ? or -p: marks a predicate function
  • !: marks a function which may modify its alist argument

asoc also follows dash in using a special variable to set the predicate used in equality tests. To control the predicate used for a given call, asoc-compare-fn may be set within a dynamically-scoped let-block containing the function call.


Variables

asoc-compare-fn nil

Special variable holding the equality predicate used in asoc functions.

May take the values equalp (or cl-equalp), equal, eql, eq. When unset, functions default to using equal.

This variable may be passed to asoc functions dynamically in a let binding.


Constructor and Filter Functions

asoc-make (&optional keys default)

Return an alist with keys each initialized to value nil.

asoc-copy (alist)

alias of copy-sequence.

Return a shallow copy of alist.

asoc-zip (keys values)

Return an alist associating keys with corresponding values. If keys is longer than values, the excess keys have value nil.

asoc-uniq (alist)

Return a copy of alist with duplicate keys removed.

The first occurrence of each key is retained.

(asoc-uniq `((a 1) (b 2) (b 3) (c 4) (a 5)))
;; ((a 1) (b 2) (c 4))

asoc-merge (&rest alists)

Return an alist with unique keys resulting from merging alists.

When identical keys occur in two alists, the latter alist takes precedence. When identical keys occur within a single alist, the foremost takes precedence (as usual).

With a single argument, equivalent to asoc-uniq.

asoc-sort-keys (alist &optional comparator)

Return a copy of alist sorted by keys.

The keys are sorted stably using comparator, or string< if none is provided. Note that string< is only applicable to symbols and strings. For other types of key, a comparator argument is mandatory.

(let ((a '((b . 2) (a . 1) (e . 5) (d . 4) (c . 3))))
  (asoc-sort-keys a))
;; ((a . 1) (b . 2) (c . 3) (d . 4) (e . 5))

asoc-filter (predicate alist)

Return a copy of alist with key-value pairs failing predicate removed.

predicate should take two arguments, key and value.

;; filter for pairs where KEY > VALUE
(let ((fib `((1 . 1)  (2 . 1)  (3 . 2)  (4 . 3)  (5 . 5)  (6 . 8)  (7 . 13)  (8 . 21))))
  (asoc-filter #'> fib))
;; ((2 . 1) (3 . 2) (4 . 3))

asoc--filter (form alist)

Anaphoric variant of asoc-filter.

Return a list of those alist elements for which form evaluates t.

The included elements remain in their original order. The anaphoric variables key and value are available for use in form.

;; remove nodes where the key is associated with itself
(asoc--filter (not (eq key value))
  `((a . b) (b . c) (c . c) (d . a) (e . e)))
;; ((a . b) (b . c) (d . a))

asoc-filter-keys (predicate alist)

Return a copy of alist with keys failing predicate removed.

;; filter for pairs where KEY <= 3
(let ((fib `((1 . 1)  (2 . 1)  (3 . 2)  (4 . 3)
      (5 . 5)  (6 . 8)  (7 . 13)  (8 . 21))))
  (asoc-filter-keys (lambda (k) (<= k 3)) fib))
;; ((1 . 1) (2 . 1) (3 . 2))

asoc-filter-values (predicate alist)

Return a copy of alist with pairs whose value fails predicate removed.

;; filter for pairs where VALUE <= 3
(let ((fib `((1 . 1)  (2 . 1)  (3 . 2)  (4 . 3)
             (5 . 5)  (6 . 8)  (7 . 13)  (8 . 21))))
  (asoc-filter-values (lambda (v) (<= v 3)) fib))
;; ((1 . 1) (2 . 1) (3 . 2) (4 . 3))

asoc-remove (predicate alist)

asoc-remove-keys (predicate alist)

asoc-remove-values (predicate alist)

aliases: asoc-reject, asoc-reject-keys, asoc-reject-values

These are inverse versions of asoc-filter, asoc-filter-keys and asoc-filter-values. They are equivalent to the corresponding functions with inverted predicates.

;; filter out pairs where KEY > VALUE
(let ((fib '((1 . 1)  (2 . 1)  (3 . 2)  (4 . 3)
             (5 . 5)  (6 . 8)  (7 . 13)  (8 . 21))))
  (asoc-remove #'> fib))
;; ((1 . 1) (5 . 5) (6 . 8) (7 . 13) (8 . 21))

;; filter out pairs where KEY <= 3
(let ((fib '((1 . 1)  (2 . 1)  (3 . 2)  (4 . 3)
             (5 . 5)  (6 . 8)  (7 . 13)  (8 . 21))))
  (asoc-remove-keys (lambda (k) (<= k 3)) fib))
;; ((4 . 3) (5 . 5) (6 . 8) (7 . 13) (8 . 21))

;; filter out pairs where VALUE <= 3
(let ((fib '((1 . 1)  (2 . 1)  (3 . 2)  (4 . 3)
             (5 . 5)  (6 . 8)  (7 . 13)  (8 . 21))))
  (asoc-remove-values (lambda (v) (<= v 3)) fib))
;; ((5 . 5) (6 . 8) (7 . 13) (8 . 21))

asoc-partition (flatlist)

Return an alist whose keys and values are taken alternately from flatlist.

(asoc-partition `(a 1 b 2 c 3 d 4 e 5 f 6))
;; ((a . 1) (b . 2) (c . 3) (d . 4) (e . 5) (f . 6))

Predicates

asoc-contains-key? (alist key)

alias: asoc-contains-key-p

Return t if alist contains an item with key key, nil otherwise.

asoc-contains-pair? (alist key value)

alias: asoc-contains-pair-p

Return t if alist contains an item (key.value), nil otherwise.


Access Functions

asoc-get (alist key &optional default)

Return the value associated with key in alist, or default if missing.

asoc-put! (alist key value &optional replace)

Associate key with value in alist.

When key already exists, if replace is non-nil, previous entries with that key are removed. Otherwise, the pair is simply consed on the front of the alist. In the latter case, this is equivalent to acons.

asoc-dissoc (alist &rest keys)

Return a modified list excluding all pairs with a key in keys

asoc-pop! (alist key)

Return the first association containing key and remove it from alist.

asoc-find (predicate alist)

Return the first alist association satisfying predicate.

predicate should take two arguments, key and value.

For all associations satisfying predicate, use asoc-filter.

asoc--find (form alist)

Anaphoric variant of asoc-find.

Return the first alist association for which form evaluates t.

The anaphoric variables key and value are available for use in form.

For all associations satisfying form, use asoc--filter

asoc-find-key (key alist)

Return the first association of alist with key, or nil if none match.

For all associations with key, use asoc-filter-keys.

asoc-keys (alist)

Return a list of unique keys in alist.

For a list of all keys in order, with duplicates, use mapcar with car over alist.

asoc-values (alist &optional ignore-shadowed)

Return a list of unique values in alist.

If ignore-shadowed is non-nil, only show include associated with the first occurrence of each key.

For a list of all values in order, with duplicate values (and values of shadowed keys), use mapcar with cdr over alist.

asoc-unzip (alist)

Return a list of all keys and a list of all values in alist.

Returns (keylist valuelist) where keylist and valuelist contain all the keys and values in alist in order, including repeats. The original alist can be reconstructed with

(asoc-zip KEYLIST VALUELIST).

asoc-unzip will also reverse asoc-zip as long as the original arguments of asoc-zip were both lists and were of equal length.


Looping Constructs

asoc-do ((keyvar valuevar) alist [result] body...)

Iterate through alist, executing body for each key-value pair.

For each iteration, keyvar is bound to the key and valuevar is bound to the value.

The return value is obtained by evaluating result.

(asoc-do ((k v) a)
  (insert (format "%S	%S\n" k v)))
;; print keys and values

(let ((sum 0))
  (asoc-do ((key value) a sum)
    (when (symbolp key)
      (setf sum (+ sum value)))))
;; add values associated with all keys that are symbols.

asoc--do (alist &rest body)

Anaphoric variant of asoc-do.

Iterate through alist, executing body for each key-value pair. For each iteration, the anaphoric variables key and value are bound to they current key and value. The macro returns the value of the anaphoric variable result, which is initially nil.

Optionally, initialization code can be included prior to the main body using the syntax (:initially ...).

(let ((a '((one . 1) (two . 4) (3 . 9) (4 . 16) (five . 25) (6 . 36))))
  (asoc--do a
    (when (symbolp key)
      (setf result (+ (or result 0) value)))))
;; 30

(let ((a '((one . 1) (two . 4) (3 . 9) (4 . 16) (five . 25) (6 . 36))))
  (asoc--do a
    (:initially (setf result 0))
    (when (symbolp key)
      (setf result (+ result value)))))
;; 30

Mapping Functions

asoc-map (function alist)

Apply func to each element of alist and return the resulting list.

func should be a function of two arguments (key value).

;; map value to nil when key is not a symbol...
(asoc-map (lambda (k v) (cons k (when (symbolp k) v)))
          `((one . 1) (two . 4) (3 . 9) (4 . 16) (five . 25) (6 . 36)))
;; ((one . 1) (two . 4) (3 . nil) (4 . nil) (five . 25) (6 . nil))

;; list of values for symbol keys (nil for other keys)
(asoc-map (lambda (k v) (when (symbolp k) v))
          '((one . 1) (two . 4) (3 . 9) (4 . 16) (five . 25) (6 . 36)))
;; (1 4 nil nil 25 nil)

asoc--map (form alist)

Anaphoric variant of asoc-map.

Evaluate form for each element of alist and return the resulting list. The anaphoric variables key and value are available for use in form.

(asoc--map
    (cons (intern (concat (symbol-name key) "-squared"))
          (* value value))
  `((one . 1) (two . 2) (three . 3) (four . 4)))
;; ((one-squared . 1) (two-squared . 4)
;;  (three-squared . 9) (four-squared . 16))

(asoc--map (cons (intern key) value)
  '(("one" . 1) ("two" . 2) ("three" . 3)))
((one . 1) (two . 2) (three . 3))

(asoc--map (format "%s=%d;" key value)
  '((one . 1) (two . 2) (three . 3) (four . 4)))
("one=1;" "two=2;" "three=3;" "four=4;")

asoc-map-keys (func alist)

Return a modified copy of alist with keys transformed by func.

;; convert symbolic keys to strings
(asoc-map-keys #'symbol-name
               '((one . 1) (two . 4) (three . 9) (four . 16)))
;; (("one" . 1) ("two" . 4) ("three" . 9) ("four" . 16))

asoc-map-values (func alist)

Return a modified copy of alist with values transformed by func.

;; convert alist to nested list
(let ((a `((1 . 1) (2 . 4) (3 . 9) (4 . 16) (5 . 25))))
  (asoc-map-values #'list a))
;; ((1 1) (2 4) (3 9) (4 16) (5 25))

Folds

asoc-fold (func alist init)

Reduce alist using func on the values, starting with value init.

func should take a key, a value and the accumulated result and return an updated result.

;; list of keys with value of 0
(let ((a `((1 . 0) (2 . 0) (3 . 0) (4 . 1) (5 . 0)
           (6 . 2) (7 . 7) (8 . 3) (9 . 2) (10 . 0))))
  (asoc-fold (lambda (k v acc) (if (zerop v) (cons k acc) acc))
             (reverse a) nil))
;; (1 2 3 5 10)

asoc--fold (form alist init)

Anaphoric variant of asoc-fold.

Reduce alist using form on each value, starting from init.

The anaphoric variables key, value and acc represent the current key, value and accumulated value, respectively.

The return value is the value of acc after the last element has been processed.

;; list of keys with value of 0
(let ((a '((1 . 0) (2 . 0) (3 . 0) (4 . 1) (5 . 0)
          (6 . 2) (7 . 7) (8 . 3) (9 . 2) (10 . 0))))
  (asoc--fold (if (zerop value) (cons key acc) acc)
    (reverse a) nil))
;; (1 2 3 5 10)

asoc-merge-values (&rest alists)

Return an alist merging multiple occurrences of each key in alists.

Each key is associated with a list containing all values in alists which were associated with the key, in order.

(let ( (a `((a . 1) (b . 2) (a . 3) (a . 1)))
       (b '((a . 5) (b . 2) (c . 3))) )
  (asoc-merge-values a b))
;; ((a 1 3 1 5) (b 2 2) (c 3))
;; ie.  ((a . (1 3 1 5)) (b . (2 2)) (c . (3)))

asoc-merge-values-no-dups (&rest alists)

Return an alist merging multiple unique values for each key in alists.

Each key is associated with a list containing all unique values in alists which were associated with the key, in order.

(let ( (a `((a . 1) (b . 2) (a . 3) (a . 1)))
       (b '((a . 5) (b . 2) (c . 3))) )
  (asoc-merge-values-no-dups a b))
  ;; ((a 1 3 5) (b 2) (c 3))
;; ie.  ((a . (1 3 5)) (b . (2)) (c . (3)))

Notes

Handling Alist Variants

List of duples

( (key1 value1) (key2 value2) ... )

An alternative format for describing a key-value mapping is a list whose elements are 2-element (key value) sublists, rather than (key . value) cons cells.

A list of this form is equivalent to an alist whose values are all wrapped in lists.

( (key1 . (value1)) (key2 . (value2)) ... )

Although this is pointless, such pseudo-alists are common, perhaps because the literals are more concise than those of true alists.

Such lists can be processed with alist functions if you remember to wrap and unwrap the value as needed. Alternatively, you can convert the list to an alist prior to processing:

(let (my-alist (asoc-map-values #'car my-duplelist))
  .... )

When converting such a list, be careful to ensure that it strictly associates one key with one value. Sometimes an alist will legitimately have list values to allow a key to be associated with multiple values:

( (key1 value1) (key2 value2a value2b) ... )
;; or equivalently:
( (key1 . (value1)) (key2 . (value2a value2b)) ... )

This is a true alist whose values simply happen to be lists.

Flat key-value list / Property list

(key1 value 1 key2 value2 ...)

Another form of key-value list is a flat list with alternating keys and values.

When keys are distinct symbols, such a list is called a plist (property list). In Emacs Lisp, each symbol has an associated plist specifying its properties.

Such a list can be converted to an alist with asoc-partition

(let ((my-alist (asoc-partition my-flatlist)))
  .... )

Multi-valued alist

(... (key1 . value1a) ... (key1 . value1b) ...)

Normally, an alist may allow multiple associations with the same key, but only considers the first when accessing a value. This allows the value for a key to be non-destructively changed ("shadowed") by simply pushing an association onto the alist, and the change to be reversed by removing that association.

However, sometimes, a list may contain multiple key-value associations, all of which are relevant, ie. a key has multiple values.

Such a multi-valued alist is best converted into a list-valued alist using asoc-merge-values.


Representation of Alists

List-valued alists

As mentioned above, alists will sometimes have lists as values.

( (key1 value1) (key2 value2a value2b) ... )

... is the standard representation of:

( ( key1 . (value1) )
  ( key2 . (value2a value2b) )
  ...

Similarly, with an improper-list-valued alist:

( (key1 value1a . value1b) (key2 value2a value2b . value2c) ... )

... is the standard representation of:

( ( key1 . (value1a . value1b) )
  ( key2 . (value2a value2b . value2c))
  ...

Cons-valued alist

A special case (or special interpretation) of improper-list-valued alists is a cons-valued alist.

For instance, consider an alist where values may be either individual atoms or cons cells:

( (key1 . value1) (key2 value2a . value2b) ... )

... is the standard representation of:

( ( key1 . value1 )
  ( key2 . (value2a . value2b) )
  ...

Null values

When a value is nil, the key-value pair is represented as a list containing only the key:

( (key1 . value1) (key2) ... )

is the standard representation of:

( ( key1 . value1 )
  ( key2 . nil )
  ...

Other Packages

  • let-alist provides a macro of the same name, which allows convenient access to alist values when the keys are symbols.
  • map provides functions for alists, hash tables and arrays.
  • kv provides tools for plists, alists and hash tables.
  • a provides functions for alists and hash tables inspired by Clojure.

最近版本更新:(数据更新于 2024-09-24 06:20:30)

主题(topics):

data-structures, emacs, emacs-lisp

troyp/asoc.el同语言 Emacs Lisp最近更新仓库

2024-08-22 13:46:09 emacs-helm/helm

2023-12-04 16:21:08 bbatsov/solarized-emacs

2023-10-13 23:11:27 bbatsov/projectile

2023-08-08 10:48:13 jaypei/emacs-neotree

2023-08-01 00:10:37 seagle0128/.emacs.d

2022-09-29 21:26:44 ocaml/tuareg