Re: JADE--SGML Backend--attributes

["Annegret Fiebig" <fiebig@xxxxxxxxxxxxxxxxxxxx>]

Sorry, I forgot to say exactly: This function produces attributes with the
gi as the attribute-name and the content as the attribute value - for the
node given as an argument and all sub-elements.
Annegret Fiebig
------------------------------------------------------
Annegret Fiebig
Zentrum fuer Datenverarbeitung der Universitaet Tuebingen
Waechterstrasse 76, 72074 Tuebingen
Telefon ++49-7071-2970346, Fax ++49-7071-295912

;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Elementinhalte als Attribute
ausgeben;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (paircontent-gi ndl)
 (if (node-list-empty? ndl)
  '()
       (let* ( (name (gi (node-list-first ndl))) (data (data(node-list-first
ndl))) )
         (if data
            (cons (list name (clearstring data))
                      (paircontent-gi (node-list-rest ndl)) )
            (paircontent-gi (node-list-rest ndl)) ) )))



 DSSSList info and archive:  http://www.mulberrytech.com/dsssl/dssslist