RE: Indexing

["Harbarth, Juliane" <jhb@xxxxxxxxxxxxxx>]

Title: RE: Indexing

-----Original Message-----
From: Jakub Nosek [mailto:kuba@xxxxxxxxxxxxxxxxxxx]
Sent: Thursday, May 27, 1999 11:14 AM
To: DSSSL List
Subject: Indexing

> I would to like to create index for my elements in the page, but I don't
> know how.
> E.g. if I have
>  <NAME>Bill Clinton</NAME>
>  <TEXT>and</TEXT>
>  ...

Complete your example to a well-formed XML document, e.g.
        <?xml version="1.0" encoding="ISO-8859-1"?>
        <index>
        <NAME>Bill Clinton</NAME>
        ...
        </index>

and try the following DSSSL :

<!doctype style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN">

(declare-flow-object-class element
  "UNREGISTERED::James Clark//Flow Object Class::element")
;
(element index
        (make element gi: "HTML"
                (make sequence
                        (make element gi: "HEAD"
                                (make element gi: "TITLE"
                                        (literal "Index")))
                        (make element gi:"BODY"
                                (make sequence
                                        (literal "INDEX of famous people")
                                        (make-names-list (current-node))
                                        (process-children))))))
;
(element name
        (process-children))
;
(element text
        (process-children))
;
(define (make-names-list nd)
        (let
         ((names (select-elements (children (current-node)) (list 'NAME))))
         (make element
          gi: "OL"
                (process names))))
;
(define (process nl)
        (if (node-list-empty? nl)
                (empty-sosofo)
                (make sequence
                        (make element
                         gi: "LI"
                                (literal (data (node-list-first nl))))
                        (process (node-list-rest nl)))))
;

Juliane