contrib/gdb-7/gdb/guile/lib/gdb/iterator.scm

   1 ;; Iteration utilities.
   2 ;; Anything in this file can change or disappear.
   3 ;;
   4 ;; Copyright (C) 2014-2015 Free Software Foundation, Inc.
   5 ;;
   6 ;; This file is part of GDB.
   7 ;;
   8 ;; This program is free software; you can redistribute it and/or modify
   9 ;; it under the terms of the GNU General Public License as published by
  10 ;; the Free Software Foundation; either version 3 of the License, or
  11 ;; (at your option) any later version.
  12 ;;
  13 ;; This program is distributed in the hope that it will be useful,
  14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16 ;; GNU General Public License for more details.
  17 ;;
  18 ;; You should have received a copy of the GNU General Public License
  19 ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
  20
  21 (define-module (gdb iterator)
  22   #:use-module (gdb)
  23   #:use-module (gdb support))
  24
  25 (define-public (make-list-iterator l)
  26   "Return a <gdb:iterator> object for a list."
  27   (assert-type (list? l) l SCM_ARG1 'make-list-iterator "list")
  28   (let ((next! (lambda (iter)
  29                  (let ((l (iterator-progress iter)))
  30                    (if (eq? l '())
  31                        (end-of-iteration)
  32                        (begin
  33                          (set-iterator-progress! iter (cdr l))
  34                          (car l)))))))
  35     (make-iterator l l next!)))
  36
  37 (define-public (iterator->list iter)
  38   "Return the elements of ITER as a list."
  39   (let loop ((iter iter)
  40              (result '()))
  41     (let ((next (iterator-next! iter)))
  42       (if (end-of-iteration? next)
  43           (reverse! result)
  44           (loop iter (cons next result))))))
  45
  46 (define-public (iterator-map proc iter)
  47   "Return a list of PROC applied to each element."
  48   (let loop ((proc proc)
  49              (iter iter)
  50              (result '()))
  51     (let ((next (iterator-next! iter)))
  52       (if (end-of-iteration? next)
  53           (reverse! result)
  54           (loop proc iter (cons (proc next) result))))))
  55
  56 (define-public (iterator-for-each proc iter)
  57   "Apply PROC to each element.  The result is unspecified."
  58   (let ((next (iterator-next! iter)))
  59     (if (not (end-of-iteration? next))
  60         (begin
  61           (proc next)
  62           (iterator-for-each proc iter)))))
  63
  64 (define-public (iterator-filter pred iter)
  65   "Return the elements that satify predicate PRED."
  66   (let loop ((result '()))
  67     (let ((next (iterator-next! iter)))
  68       (cond ((end-of-iteration? next) (reverse! result))
  69             ((pred next) (loop (cons next result)))
  70             (else (loop result))))))
  71
  72 (define-public (iterator-until pred iter)
  73   "Run the iterator until the result of (pred element) is true.
  74
  75   Returns:
  76     The result of the first (pred element) call that returns true,
  77     or #f if no element matches."
  78   (let loop ((next (iterator-next! iter)))
  79     (cond ((end-of-iteration? next) #f)
  80           ((pred next) => identity)
  81           (else (loop (iterator-next! iter))))))