Subject: RE: Indexing From: "Harbarth, Juliane" <jhb@xxxxxxxxxxxxxx> Date: Thu, 27 May 1999 15:39:48 +0200 |
-----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
Current Thread |
---|
|
<- Previous | Index | Next -> |
---|---|---|
RE: TeX backend (was re: The DSSSLi, Wroth, Mark | Thread | dockbook style sheets // glosslist , Joerg Wittenberger |
Re: The DSSSList Digest V3 #48, W. Eliot Kimber | Date | RE: The DSSSList Digest V3 #48, Didier PH Martin |
Month |