mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 11:50:28 +02:00
6734191c68
* module/ice-9/runq.scm (fork-strips): Remove. * module/language/assembly.scm (*block-alignment*): Remove. * module/language/assembly/disassemble.scm (disassemble-objects, simplify): Remove. * module/srfi/srfi-18.scm (mutex-owners): Remove. * module/srfi/srfi-19.scm (leap-year?): Remove. * module/system/base/compile.scm (dsu-sort): Remove. * module/texinfo.scm (ascii->char): Remove. * module/texinfo/html.scm (ignored?): Remove. * module/texinfo/indexing.scm (def-name): Remove. * module/texinfo/plain-text.scm (ignore): Remove.
75 lines
3 KiB
Scheme
75 lines
3 KiB
Scheme
;;;; (texinfo indexing) -- indexing stexinfo
|
||
;;;;
|
||
;;;; Copyright (C) 2009, 2010 Free Software Foundation, Inc.
|
||
;;;; Copyright (C) 2003,2004,2009 Andy Wingo <wingo at pobox dot com>
|
||
;;;;
|
||
;;;; This library is free software; you can redistribute it and/or
|
||
;;;; modify it under the terms of the GNU Lesser General Public
|
||
;;;; License as published by the Free Software Foundation; either
|
||
;;;; version 3 of the License, or (at your option) any later version.
|
||
;;;;
|
||
;;;; This library is distributed in the hope that it will be useful,
|
||
;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||
;;;; Lesser General Public License for more details.
|
||
;;;;
|
||
;;;; You should have received a copy of the GNU Lesser General Public
|
||
;;;; License along with this library; if not, write to the Free Software
|
||
;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
|
||
;;;;
|
||
|
||
;;; Commentary:
|
||
;;
|
||
;;@c texinfo formatting
|
||
;;Given a piece of stexi, return an index of a specified variety.
|
||
;;
|
||
;;Note that currently, @code{stexi-extract-index} doesn't differentiate
|
||
;;between different kinds of index entries. That's a bug ;)
|
||
;;; Code:
|
||
|
||
(define-module (texinfo indexing)
|
||
#:use-module (sxml simple)
|
||
#:use-module (srfi srfi-13)
|
||
#:export (stexi-extract-index))
|
||
|
||
(define defines
|
||
'(deftp defcv defivar deftypeivar defop deftypeop defmethod
|
||
deftypemethod defopt defvr defvar deftypevr deftypevar deffn
|
||
deftypefn defspec defmac defun deftypefun))
|
||
|
||
(define indices
|
||
'(cindex findex vindex kindex pindex tindex))
|
||
|
||
(define (stexi-extract-index tree manual-name kind)
|
||
"Given an stexi tree @var{tree}, index all of the entries of type
|
||
@var{kind}. @var{kind} can be one of the predefined texinfo indices
|
||
(@code{concept}, @code{variable}, @code{function}, @code{key},
|
||
@code{program}, @code{type}) or one of the special symbols @code{auto}
|
||
or @code{all}. @code{auto} will scan the stext for a @code{(printindex)}
|
||
statement, and @code{all} will generate an index from all entries,
|
||
regardless of type.
|
||
|
||
The returned index is a list of pairs, the @sc{car} of which is the
|
||
entry (a string) and the @sc{cdr} of which is a node name (a string)."
|
||
(let loop ((in tree) (entries '()))
|
||
(cond
|
||
((null? in)
|
||
entries)
|
||
((pair? (car in))
|
||
(cond
|
||
((and (pair? (cdr in)) (pair? (cadr in))
|
||
(eq? (caar in) 'anchor) (memq (caadr in) defines))
|
||
(loop (cddr in) (acons (cadr (assq 'name (cdr (cadadr in))))
|
||
(cadr (assq 'name (cdadar in)))
|
||
entries)))
|
||
((and (pair? (cdr in)) (pair? (cadr in))
|
||
(eq? (caar in) 'anchor) (memq (caadr in) indices))
|
||
(loop (cddr in) (acons (sxml->string (cadr in))
|
||
(cadr (assq 'name (cdadar in)))
|
||
entries)))
|
||
(else
|
||
(loop (cdr in) (loop (car in) entries)))))
|
||
(else
|
||
(loop (cdr in) entries)))))
|
||
|
||
;;; arch-tag: 216d29d3-1ed9-433f-9c19-0dc4d6b439b6
|