Re: number-clause-sosofo

Subject: Re: number-clause-sosofo
From: Richard Light <richard@xxxxxxxxxxxxxxxxx>
Date: Wed, 23 Jul 1997 18:55:52 +0100
In message <33D6124A.FF57E328@xxxxxxxxxxxxxxxx>, Paul Prescod
<papresco@xxxxxxxxxxxxxxxx> writes
>I found the procedure "number-clause-sosofo" in a couple of stylesheets,
>but I can't find it in the spec. Is it obsolete, proprietary or am I
>just not very good at finding things?

It appears in the TEI Lite stylesheet, declared explicitly along with
its friend "number-clause":

(define (number-clause-sosofo node)
  (literal
   (format-number-list (reverse (number-clause node))
                       "1"
                       ".")))

(define (number-clause node)
  (case (gi node)
    (("DIV4" "DIV3" "DIV2")
     (cons (child-number node)
           (number-clause (parent node))))
    (("DIV1")
     (list (child-number node)))
    (("DIV")
     (if (TOP-LEVEL-DIV?)
         (list (child-number node))
         (cons (child-number node)
               (number-clause (parent node)))))
    (("TABLE")
     (list 1))
    (("GI")
     (list 1))
    (("LABEL")
     (list 1))
    (("LIST")
     (list 1))
    (else (list))))

The reason you have found it in more than one place is (at least partly)
because I shamelessly pirated Jon Bosak's HTML stylesheet as a basis for
my TEI Lite one!  As far as I know, "number-clause-sosofo" has no
official standing.

Richard.

Richard Light
SGML and Museum Information Consultancy
richard@xxxxxxxxxxxxxxxxx
3 Midfields Walk 
Burgess Hill
West Sussex RH15 8JA
U.K.
tel. (44) 1444 232067

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


Current Thread