- Clean up more DSSSL leftovers

svn path=/projects/xml-tools/; revision=41018

da_DK.ISO8859-1/share/xml/freebsd.dsl

@@ -2,46 +2,11 @@
 
 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
 <!ENTITY freebsd.dsl PUBLIC "-//FreeBSD//DOCUMENT DocBook Language Neutral Stylesheet//EN" CDATA DSSSL>
-
-<!ENTITY % output.html  "IGNORE">
-<!ENTITY % output.print "IGNORE">
 ]>
 
 <style-sheet>
   <style-specification use="docbook">
     <style-specification-body>
-      <!-- HTML only .................................................... -->
-
-      <![ %output.html; [
-
-	(define ($email-footer$)
-          (make sequence
-	    (make element gi: "p"
-                  attributes: (list (list "align" "center"))
-              (make element gi: "small"
-                (literal "Dette og andre dokumenter kan downloades fra ")
-		(create-link
-		  (list (list "HREF" "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc/"))
-                  (literal "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc/"))
-                (literal ".")))
-            (make element gi: "p"
-                  attributes: (list (list "align" "center"))
-              (make element gi: "small"
-                (literal "For spørgsmål om FreeBSD, læs ")
-		(create-link
-		  (list (list "HREF" "http://www.FreeBSD.org/docs.html"))
-                  (literal "dokumentationen"))
-                (literal " før du kontakter <")
-		(create-link
-		  (list (list "HREF" "mailto:questions@FreeBSD.org"))
-                  (literal "questions@FreeBSD.org"))
-                (literal ">.")
-                (make empty-element gi: "br")
-                (literal "For spørgsmål angående denne dokumentation, e-mail <")
-		(create-link (list (list "HREF" "mailto:doc@FreeBSD.org"))
-                  (literal "doc@FreeBSD.org"))
-	        (literal ">.")))))
-      ]]>
 	<!-- Fix a problem with the Danish localisation. -->
 	(define (local-da-label-title-sep)
 	(list

de_DE.ISO8859-1/books/porters-handbook/freebsd.dsl

@@ -13,33 +13,11 @@
 
 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
 <!ENTITY freebsd.dsl SYSTEM "../../share/xml/freebsd.dsl" CDATA DSSSL>
-<!ENTITY % output.html  "IGNORE">
 ]>
 
 <style-sheet>
   <style-specification use="docbook">
     <style-specification-body>
-
-      <![ %output.html; [
-	(define ($email-footer$)
-          (make sequence
-            (make empty-element gi: "br")
-            (literal "Fragen zum FreeBSD Ports-System richten Sie bitte an <")
-            (create-link (list (list "HREF" "mailto:ports@FreeBSD.org"))
-              (literal "ports@FreeBSD.org"))
-            (literal ">,")
-            (literal "  Fragen zu diesem Dokument hingegen an <")
-            (create-link (list (list "HREF" "mailto:de-bsd-translators@de.FreeBSD.org"))
-              (literal "de-bsd-translators@de.FreeBSD.org"))
-            (literal ">.")))
-
-	<!-- Convert " ... " to `` ... '' in the HTML output. -->
-	(element quote
-	  (make sequence
-	    (literal "``")
-	    (process-children)
-	    (literal "''")))
-      ]]>
     </style-specification-body>
   </style-specification>
 

de_DE.ISO8859-1/share/xml/freebsd.dsl

@@ -6,37 +6,11 @@
 
 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
 <!ENTITY freebsd.dsl PUBLIC "-//FreeBSD//DOCUMENT DocBook Language Neutral Stylesheet//EN" CDATA DSSSL>
-
-<!ENTITY % freebsd.l10n PUBLIC "-//FreeBSD//ENTITIES DocBook Language Specific Entities//EN">
-%freebsd.l10n;
-
-<!ENTITY % output.html  "IGNORE">
-<!ENTITY % output.print "IGNORE">
 ]>
 
 <style-sheet>
   <style-specification use="docbook">
     <style-specification-body>
-
-      <![ %output.html; [
-
-	(define ($email-footer$)
-          (make sequence
-            (make element gi: "p"
-                  attributes: (list (list "align" "center"))
-              (make element gi: "small"
-                (literal "Wenn Sie Fragen zu FreeBSD haben, schicken Sie eine E-Mail an <")
-                (make element gi: "a"
-                      attributes: (list (list "href" "mailto:de-bsd-questions@de.FreeBSD.org"))
-                  (literal "de-bsd-questions@de.FreeBSD.org"))
-                (literal ">.")
-                (make empty-element gi: "br")
-                (literal "Wenn Sie Fragen zu dieser Dokumentation haben, schicken Sie eine E-Mail an <")
-                (make element gi: "a"
-                      attributes: (list (list "href" "mailto:de-bsd-translators@de.FreeBSD.org"))
-                  (literal "de-bsd-translators@de.FreeBSD.org"))
-	        (literal ">.")))))
-      ]]>
     </style-specification-body>
   </style-specification>
 

el_GR.ISO8859-7/share/xml/freebsd.dsl

@@ -11,57 +11,11 @@
 
 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
 <!ENTITY freebsd.dsl PUBLIC "-//FreeBSD//DOCUMENT DocBook Language Neutral Stylesheet//EN" CDATA DSSSL>
-
-<!ENTITY % freebsd.l10n PUBLIC "-//FreeBSD//ENTITIES DocBook Language Specific Entities//EN">
-%freebsd.l10n;
-
-<!ENTITY % output.html  "IGNORE">
-<!ENTITY % output.print "IGNORE">
-<!ENTITY % lang.el.dsssl "IGNORE">
 ]>
 
 <style-sheet>
   <style-specification use="docbook">
     <style-specification-body>
-      <!-- HTML only .................................................... -->
-
-      <![ %output.html; [
-
-	(define ($email-footer$)
-          (make sequence
-	    (make element gi: "p"
-                  attributes: (list (list "align" "center"))
-              (make element gi: "small"
-                (literal "Áõôü ôï êåßìåíï, êáé Üëëá êåßìåíá, ìðïñåß íá âñåèåß óôï ")
-		(create-link
-		  (list (list "HREF" "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc/"))
-                  (literal "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc/"))
-                (literal ".")))
-            (make element gi: "p"
-                  attributes: (list (list "align" "center"))
-              (make element gi: "small"
-                (literal "Ãéá åñùôÞóåéò ó÷åôéêÜ ìå ôï FreeBSD, äéáâÜóôå ôçí ")
-		(create-link
-		  (list (list "HREF" "http://www.FreeBSD.org/docs.html"))
-                  (literal "ôåêìçñßùóç"))
-                (literal " ðñéí íá åðéêïéíùíÞóåôå ìå ôçí <")
-		(create-link
-		  (list (list "HREF" "mailto:questions@FreeBSD.org"))
-                  (literal "questions@FreeBSD.org"))
-                (literal ">.")
-                (make empty-element gi: "br")
-                (literal "Ãéá åñùôÞóåéò ó÷åôéêÜ ìå áõôÞ ôçí ôåêìçñßùóç, óôåßëôå e-mail óôçí <")
-		(create-link (list (list "HREF" "mailto:doc@FreeBSD.org"))
-                  (literal "doc@FreeBSD.org"))
-	        (literal ">.")))))
-
-        (element quote
-          (make sequence
-            (make entity-ref name: "laquo")
-            (process-children)
-            (make entity-ref name: "raquo")))
-      ]]>
-
       (define (local-el-label-title-sep)
         (list
           (list (normalize "warning")		": ")
@@ -79,11 +33,3 @@
 
   <external-specification id="docbook" document="freebsd.dsl">
 </style-sheet>
-
-<!--
-Local variables:
-coding: iso-8859-7
-mode: dsssl
-fill-column: 78
-End:
--->

en_US.ISO8859-1/books/porters-handbook/freebsd.dsl

@@ -6,33 +6,11 @@
 
 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
 <!ENTITY freebsd.dsl SYSTEM "../../share/xml/freebsd.dsl" CDATA DSSSL>
-<!ENTITY % output.html  "IGNORE"> 
 ]>
 
 <style-sheet>
   <style-specification use="docbook">
     <style-specification-body>
- 
-      <![ %output.html; [ 
-	(define ($email-footer$)
-          (make sequence
-            (literal "For questions about the FreeBSD ports system, e-mail <")
-            (create-link (list (list "HREF" "mailto:ports@FreeBSD.org"))
-              (literal "ports@FreeBSD.org"))
-            (literal ">.")
-            (make empty-element gi: "br")
-            (literal "For questions about this documentation, e-mail <")
-            (create-link (list (list "HREF" "mailto:doc@FreeBSD.org"))
-              (literal "doc@FreeBSD.org"))
-            (literal ">.")))
-
-	<!-- Convert " ... " to `` ... '' in the HTML output. -->
-	(element quote
-	  (make sequence
-	    (literal "``")
-	    (process-children)
-	    (literal "''")))
-      ]]>
     </style-specification-body>
   </style-specification>
 

en_US.ISO8859-1/share/xml/freebsd.dsl

@@ -2,13 +2,6 @@
 
 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
 <!ENTITY freebsd.dsl PUBLIC "-//FreeBSD//DOCUMENT DocBook Language Neutral Stylesheet//EN" CDATA DSSSL>
-
-<!ENTITY % freebsd.l10n PUBLIC "-//FreeBSD//ENTITIES DocBook Language Specific Entities//EN">
-%freebsd.l10n;
-
-<!ENTITY % output.html  "IGNORE">
-<!ENTITY % output.print "IGNORE">
-<!ENTITY % output.print.niceheaders "IGNORE">
 ]>
 
 <style-sheet>

es_ES.ISO8859-1/share/xml/freebsd.dsl

@@ -2,47 +2,11 @@
 
 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
 <!ENTITY freebsd.dsl PUBLIC "-//FreeBSD//DOCUMENT DocBook Language Neutral Stylesheet//EN" CDATA DSSSL>
-
-<!ENTITY % output.html  "IGNORE">
-<!ENTITY % output.print "IGNORE">
 ]>
 
 <style-sheet>
   <style-specification use="docbook">
     <style-specification-body>
-      <!-- HTML only .................................................... -->
-
-      <![ %output.html; [
-
-	(define ($email-footer$)
-          (make sequence
-	    (make element gi: "p"
-                  attributes: (list (list "align" "center"))
-              (make element gi: "small"
-                (literal "Puede descargar éste y muchos otros documentos desde ")
-		(create-link
-		  (list (list "HREF" "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc/"))
-                  (literal "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc/"))
-                (literal ".")))
-            (make element gi: "p"
-                  attributes: (list (list "align" "center"))
-              (make element gi: "small"
-                (literal "Si tiene dudas sobre FreeBSD consulte la ")
-		(create-link
-		  (list (list "HREF" "http://www.FreeBSD.org/docs.html"))
-                  (literal "documentación"))
-                (literal " antes de escribir a la lista <")
-		(create-link
-		  (list (list "HREF" "mailto:questions@FreeBSD.org"))
-                  (literal "questions@FreeBSD.org"))
-                (literal ">.")
-                (make empty-element gi: "br")
-                (literal "Envíe sus preguntas sobre la documentación a <")
-		(create-link (list (list "HREF" "mailto:doc@FreeBSD.org"))
-                  (literal "doc@FreeBSD.org"))
-	        (literal ">.")))))
-      ]]>
-
     </style-specification-body>
   </style-specification>
 

fr_FR.ISO8859-1/books/porters-handbook/freebsd.dsl

@@ -12,33 +12,11 @@
 
 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
 <!ENTITY freebsd.dsl SYSTEM "../../share/xml/freebsd.dsl" CDATA DSSSL>
-<!ENTITY % output.html  "IGNORE"> 
 ]>
 
 <style-sheet>
   <style-specification use="docbook">
     <style-specification-body>
- 
-      <![ %output.html; [ 
-	(define ($email-footer$)
-          (make sequence
-            (literal "Pour toutes questions sur le systeme des ports, e-mail <")
-            (create-link (list (list "HREF" "mailto:ports@FreeBSD.org"))
-              (literal "ports@FreeBSD.org"))
-            (literal ">.")
-            (make empty-element gi: "br")
-            (literal "Pour toutes questions a propos de la documentation, e-mail <")
-            (create-link (list (list "HREF" "mailto:doc@FreeBSD.org"))
-              (literal "doc@FreeBSD.org"))
-            (literal ">.")))
-
-	<!-- Convert " ... " to `` ... '' in the HTML output. -->
-	(element quote
-	  (make sequence
-	    (literal "``")
-	    (process-children)
-	    (literal "''")))
-      ]]>
     </style-specification-body>
   </style-specification>
 

fr_FR.ISO8859-1/share/xml/freebsd.dsl

@@ -10,53 +10,12 @@
 
 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
 <!ENTITY freebsd.dsl PUBLIC "-//FreeBSD//DOCUMENT DocBook Language Neutral Stylesheet//EN" CDATA DSSSL>
-
-<!ENTITY % output.html  "IGNORE">
-<!ENTITY % output.print "IGNORE">
 ]>
 
 <style-sheet>
   <style-specification use="docbook">
     <style-specification-body>
 
-      <![ %output.html; [
-
-        <!-- Fix a problem with the French localisation.  This should really
-             be a patch to the dsssl-docbook-modular port, but this gets it
-             more widely available sooner.  A patch will be applied to the
-             port as well, and then this can be removed. -->
-        (define (gentext-fr-nav-prev prev)
-          (make sequence (literal "Pr\U-00E9;c\U-00E9;dent")))
-
-        (define ($email-footer$)
-          (make sequence
-            (make element gi: "p"
-                  attributes: (list (list "align" "center"))
-              (make element gi: "small"
-                (literal "Ce document, ainsi que d'autres peut être téléchargé sur ")
-                (make element gi: "a"
-                      attributes: (list (list "href" "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc"))
-                  (literal "ftp.FreeBSD.org/pub/FreeBSD/doc/"))
-                (literal ".")))
-            (make element gi: "p"
-                  attributes: (list (list "align" "center"))
-              (make element gi: "small"
-                (literal "Pour toutes questions à propos de FreeBSD, lisez la ")
-                (make element gi: "a"
-                      attributes: (list (list "href" "http://www.freebsd.org/docs.html"))
-                  (literal "documentation"))
-                (literal " avant de contacter <")
-                (make element gi: "a"
-                      attributes: (list (list "href" "mailto:questions@FreeBSD.org"))
-                  (literal "questions@FreeBSD.org"))
-                (literal ">.")
-                (make empty-element gi: "br")
-                (literal "Pour les questions sur cette documentation, contactez <")
-                (make element gi: "a"
-                      attributes: (list (list "href" "mailto:doc@FreeBSD.org"))
-                  (literal "doc@FreeBSD.org"))
-                (literal ">.")))))
-      ]]>
 	<!-- Fix a problem with the French localisation. The bug was
 	submitted to authors of docbook project -->
 	(define (local-fr-label-title-sep)

hu_HU.ISO8859-2/share/xml/freebsd.dsl

@@ -8,43 +8,11 @@
 
 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
 <!ENTITY freebsd.dsl PUBLIC "-//FreeBSD//DOCUMENT DocBook Language Neutral Stylesheet//EN" CDATA DSSSL>
-
-<!ENTITY % freebsd.l10n PUBLIC "-//FreeBSD//ENTITIES DocBook Language Specific Entities//EN">
-%freebsd.l10n;
-
-<!ENTITY % output.html  "IGNORE">
-<!ENTITY % output.print "IGNORE">
 ]>
 
 <style-sheet>
   <style-specification use="docbook">
     <style-specification-body>
-
-      <![ %output.html; [
-	(define ($email-footer$)
-          (make sequence
-            (make element gi: "p"
-                  attributes: (list (list "align" "center"))
-              (make element gi: "small"
-                (literal "Ha kérdése van a FreeBSD-vel kapcsolatban, a következõ
-		  címre írhat (angolul): <")
-                (make element gi: "a"
-                      attributes: (list (list "href" "mailto:freebsd-questions@FreeBSD.org"))
-                  (literal "freebsd-questions@FreeBSD.org>."))
-                (make empty-element gi: "br")
-                (literal "Ha ezzel a dokumentummal kapcsolatban van kérdése,
-		  kérjük erre a címre írjon: <")
-                (make element gi: "a"
-                      attributes: (list (list "href" "mailto:gabor@FreeBSD.org"))
-                  (literal "gabor@FreeBSD.org>."))
-	        ))))
-
-	(define (local-hu-label-title-sep)
-	  (list
-	    (list (normalize "caution")		": ")
-	    (list (normalize "warning")		": ")
-	  ))
-      ]]>
     </style-specification-body>
   </style-specification>
 

it_IT.ISO8859-15/share/xml/freebsd.dsl

@@ -7,45 +7,11 @@
 
 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
 <!ENTITY freebsd.dsl PUBLIC "-//FreeBSD//DOCUMENT DocBook Language Neutral Stylesheet//EN" CDATA DSSSL>
-
-<!ENTITY % output.html  "IGNORE">
-<!ENTITY % output.print "IGNORE">
 ]>
 
 <style-sheet>
   <style-specification use="docbook">
     <style-specification-body>
-      <![ %output.html; [
-
-        (define ($email-footer$)
-          (make sequence
-            (make element gi: "p"
-                  attributes: (list (list "align" "center"))
-              (make element gi: "small"
-                (literal "Questo, ed altri documenti, possono essere scaricati da ")
-                (create-link
-                  (list (list "HREF" "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc/"))
-                  (literal "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc/"))
-                (literal ".")))
-            (make element gi: "p"
-                  attributes: (list (list "align" "center"))
-              (make element gi: "small"
-                (literal "Per domande su FreeBSD, leggi la ")
-                (create-link
-                  (list (list "HREF" "http://www.FreeBSD.org/docs.html"))
-                  (literal "documentazione"))
-                (literal " prima di contattare <")
-                (create-link
-                  (list (list "HREF" "mailto:questions@FreeBSD.org"))
-                  (literal "questions@FreeBSD.org"))
-                (literal ">.")
-                (make empty-element gi: "br")
-                (literal "Per domande su questa documentazione, invia una e-mail a <")
-                (create-link (list (list "HREF" "mailto:doc@FreeBSD.org"))
-                  (literal "doc@FreeBSD.org"))
-                (literal ">.")))))
-      ]]>
-
       (define (local-it-label-title-sep)
         (list
           (list (normalize "warning")           ": ")

ja_JP.eucJP/books/porters-handbook/freebsd.dsl

@@ -12,33 +12,11 @@
 
 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
 <!ENTITY freebsd.dsl SYSTEM "../../share/xml/freebsd.dsl" CDATA DSSSL>
-<!ENTITY % output.html  "IGNORE"> 
 ]>
 
 <style-sheet>
   <style-specification use="docbook">
     <style-specification-body>
- 
-      <![ %output.html; [ 
-	(define ($email-footer$)
-          (make sequence
-            (literal "FreeBSD ports システムに関する質問は、(英語で) <")
-            (create-link (list (list "HREF" "mailto:ports@FreeBSD.org"))
-              (literal "ports@FreeBSD.org"))
-            (literal "> へ、")
-            (make empty-element gi: "br")
-            (literal "この文書の原文に関するお問い合わせは、(英語で) <")
-             (create-link (list (list "HREF" "mailto:doc@FreeBSD.org"))
-               (literal "doc@FreeBSD.org"))
-	     (literal "> までお願いします。")))
-
-	<!-- Convert " ... " to `` ... '' in the HTML output. -->
-	(element quote
-	  (make sequence
-	    (literal "``")
-	    (process-children)
-	    (literal "''")))
-      ]]>
     </style-specification-body>
   </style-specification>
 

ja_JP.eucJP/share/xml/freebsd.dsl

@@ -2,46 +2,11 @@
 
 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
 <!ENTITY freebsd.dsl PUBLIC "-//FreeBSD//DOCUMENT DocBook Language Neutral Stylesheet//EN" CDATA DSSSL>
-
-<!ENTITY % freebsd.l10n PUBLIC "-//FreeBSD//ENTITIES DocBook Language Specific Entities//EN">
-%freebsd.l10n;
-
-<!ENTITY % output.html  "IGNORE">
-<!ENTITY % output.print "IGNORE">
 ]>
 
 <style-sheet>
   <style-specification use="docbook">
     <style-specification-body>
-      <![ %output.html; [
-	(define ($email-footer$)
-          (make sequence
-	    (make element gi: "p"
-                  attributes: (list (list "align" "center"))
-              (make element gi: "small"
-                (literal "本文書、および他の文書は ")
-		(create-link
-		  (list (list "HREF" "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc/"))
-                  (literal "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc/"))
-                (literal " からダウンロードできます。")))
-            (make element gi: "p"
-                  attributes: (list (list "align" "center"))
-              (make element gi: "small"
-                (literal "FreeBSD に関する質問がある場合には、")
-		(create-link
-		  (list (list "HREF" "http://www.FreeBSD.org/ja/docs.html"))
-                  (literal "ドキュメント"))
-                (literal " を読んだ上で <")
-		(create-link
-		  (list (list "HREF" "mailto:questions@FreeBSD.org"))
-                  (literal "questions@FreeBSD.org"))
-                (literal "> まで (英語で) 連絡してください。")
-                (make empty-element gi: "br")
-                (literal "本文書に関する質問については、<")
-		(create-link (list (list "HREF" "mailto:doc@FreeBSD.org"))
-                  (literal "doc@FreeBSD.org"))
-	        (literal "> まで電子メールを (英語で) 送ってください。")))))
-      ]]>
     </style-specification-body>
   </style-specification>
 

mn_MN.UTF-8/share/xml/freebsd.dsl

@@ -8,56 +8,11 @@
 
 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
 <!ENTITY freebsd.dsl PUBLIC "-//FreeBSD//DOCUMENT DocBook Language Neutral Stylesheet//EN" CDATA DSSSL>
-<!ENTITY % lang.mn.dsssl "IGNORE">
-
-<!ENTITY % freebsd.l10n PUBLIC "-//FreeBSD//ENTITIES DocBook Language Specific Entities//EN">
-%freebsd.l10n;
-
-<!ENTITY % output.html  "IGNORE">
-<!ENTITY % output.print "IGNORE">
 ]>
 
 <style-sheet>
   <style-specification use="docbook">
     <style-specification-body>
-      <![ %output.html; [
-
-      <![ %lang.mn.dsssl; [
-        (define %gentext-language% "mn")
-      ]]>
-	(define ($email-footer$)
-          (make sequence
-	    (make element gi: "p"
-                  attributes: (list (list "align" "center"))
-              (make element gi: "small"
-                (literal "Энэ болон бусад баримтуудыг ")
-		(create-link
-		  (list (list "HREF" "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc/"))
-                  (literal "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc/"))
-                (literal " хаягаас татаж авч болно.")))
-            (make element gi: "p"
-                  attributes: (list (list "align" "center"))
-              (make element gi: "small"
-                (literal "FreeBSD-ийн талаар <")
-		(create-link
-		  (list (list "HREF" "mailto:questions@FreeBSD.org"))
-                  (literal "questions@FreeBSD.org"))
-                (literal "> хаягтай холбоо барихаасаа өмнө ")
-		(create-link
-		  (list (list "HREF" "http://www.FreeBSD.org/docs.html"))
-                  (literal "баримтыг"))
-                (literal " уншина уу.")
-                (make empty-element gi: "br")
-                (literal "Энэ бичиг баримттай холбоотой асуулт байвал <")
-		(create-link (list (list "HREF" "mailto:doc@FreeBSD.org"))
-                  (literal "doc@FreeBSD.org"))
-	        (literal "> хаягаар цахим захидал явуулна уу.")
-                (make empty-element gi: "br")
-                (literal "Энэ  бичиг баримтын орчуулгатай холбоотой асуулт байвал <")
-		(create-link (list (list "HREF" "mailto:admin@mnbsd.org"))
-                  (literal "admin@mnbsd.org"))
-	        (literal "> хаягаар цахим захидал явуулна уу.")))))
-      ]]>
 
         (define (local-mn-label-title-sep)
         (list

nl_NL.ISO8859-1/share/xml/freebsd.dsl

@@ -8,12 +8,6 @@
 
 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
 <!ENTITY freebsd.dsl PUBLIC "-//FreeBSD//DOCUMENT DocBook Language Neutral Stylesheet//EN" CDATA DSSSL>
-
-<!ENTITY % freebsd.l10n PUBLIC "-//FreeBSD//ENTITIES DocBook Language Specific Entities//EN">
-%freebsd.l10n;
-
-<!ENTITY % output.html  "IGNORE">
-<!ENTITY % output.print "IGNORE">
 ]>
 
 <style-sheet>

pl_PL.ISO8859-2/share/xml/freebsd.dsl

@@ -8,47 +8,11 @@
 
 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
 <!ENTITY freebsd.dsl PUBLIC "-//FreeBSD//DOCUMENT DocBook Language Neutral Stylesheet//EN" CDATA DSSSL>
-
-<!ENTITY % freebsd.l10n PUBLIC "-//FreeBSD//ENTITIES DocBook Language Specific Entities//EN">
-%freebsd.l10n;
-
-<!ENTITY % output.html  "IGNORE">
-<!ENTITY % output.print "IGNORE">
 ]>
 
 <style-sheet>
   <style-specification use="docbook">
     <style-specification-body>
-      <![ %output.html; [
-
-	(define ($email-footer$)
-          (make sequence
-	    (make element gi: "p"
-                  attributes: (list (list "align" "center"))
-              (make element gi: "small"
-                (literal "Ten i inne dokumenty mo¿na pobraæ z ")
-		(create-link
-		  (list (list "HREF" "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc/"))
-                  (literal "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc/"))
-                (literal ".")))
-            (make element gi: "p"
-                  attributes: (list (list "align" "center"))
-              (make element gi: "small"
-                (literal "W przypadku pytañ o FreeBSD prosimy przeczytaæ dostêpn± ")
-		(create-link
-		  (list (list "HREF" "http://www.FreeBSD.org/docs.html"))
-                  (literal "dokumentacjê"))
-                (literal " przed kontaktem z <")
-		(create-link
-		  (list (list "HREF" "mailto:questions@FreeBSD.org"))
-                  (literal "questions@FreeBSD.org"))
-                (literal ">.")
-                (make empty-element gi: "br")
-                (literal "W sprawie zapytañ o tê dokumentacjê prosimy o kontakt z <")
-		(create-link (list (list "HREF" "mailto:doc@FreeBSD.org"))
-                  (literal "doc@FreeBSD.org"))
-	        (literal ">.")))))
-      ]]>
     </style-specification-body>
   </style-specification>
 

ru_RU.KOI8-R/books/porters-handbook/freebsd.dsl

@@ -13,33 +13,11 @@
 
 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
 <!ENTITY freebsd.dsl SYSTEM "../../share/xml/freebsd.dsl" CDATA DSSSL>
-<!ENTITY % output.html  "IGNORE">
 ]>
 
 <style-sheet>
   <style-specification use="docbook">
     <style-specification-body>
- 
-      <![ %output.html; [ 
-	(define ($email-footer$)
-          (make sequence
-            (literal "ðÏ ×ÏÐÒÏÓÁÍ Ó×ÑÚÁÎÎÙÍ Ó ÓÉÓÔÅÍÏÊ ÐÏÒÔÏ× ÄÌÑ FreeBSD, ÐÉÛÉÔÅ ÐÏ ÁÄÒÅÓÕ <")
-            (create-link (list (list "HREF" "mailto:ports@FreeBSD.org"))
-              (literal "ports@FreeBSD.org"))
-            (literal ">.")
-            (make empty-element gi: "br")
-            (literal "ðÏ ×ÏÐÒÏÓÁÍ, Ó×ÑÚÁÎÎÙÍ Ó ÜÔÏÊ ÄÏËÕÍÅÎÔÁÃÉÅÊ, ÐÉÛÉÔÅ ÐÏ ÁÄÒÅÓÕ <")
-            (create-link (list (list "HREF" "mailto:doc@FreeBSD.org"))
-              (literal "doc@FreeBSD.org"))
-            (literal ">.")))
-
-	<!-- Convert " ... " to `` ... '' in the HTML output. -->
-	(element quote
-	  (make sequence
-	    (literal "``")
-	    (process-children)
-	    (literal "''")))
-      ]]>
     </style-specification-body>
   </style-specification>
 

ru_RU.KOI8-R/share/xml/freebsd.dsl

@@ -9,65 +9,12 @@
 
 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
 <!ENTITY freebsd.dsl PUBLIC "-//FreeBSD//DOCUMENT DocBook Language Neutral Stylesheet//EN" CDATA DSSSL>
-<!ENTITY % lang.ru.dsssl "IGNORE">
-
-<!ENTITY % freebsd.l10n PUBLIC "-//FreeBSD//ENTITIES DocBook Language Specific Entities//EN">
-%freebsd.l10n;
-
-<!ENTITY % output.html  "IGNORE">
-<!ENTITY % output.print "IGNORE">
 ]>
 
 <style-sheet>
   <style-specification use="docbook">
     <style-specification-body>
 
-      <![ %output.html; [
-
-      <![ %lang.ru.dsssl; [
-        (define %gentext-language% "ru")
-      ]]>
-
-	(define ($email-footer$)
-          (make sequence
-	    (make element gi: "p"
-                  attributes: (list (list "align" "center"))
-              (make element gi: "small"
-                (literal "üÔÏÔ, É ÄÒÕÇÉÅ ÄÏËÕÍÅÎÔÙ, ÍÏÇÕÔ ÂÙÔØ ÓËÁÞÁÎÙ Ó ")
-		(create-link
-		  (list (list "HREF" "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc/"))
-                  (literal "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc/"))
-                (literal ".")))
-            (make element gi: "p"
-                  attributes: (list (list "align" "center"))
-              (make element gi: "small"
-                (literal "ðÏ ×ÏÐÒÏÓÁÍ, Ó×ÑÚÁÎÎÙÍ Ó FreeBSD, ÐÒÏÞÉÔÁÊÔÅ ")
-		(create-link
-		  (list (list "HREF" "http://www.FreeBSD.org/ru/docs.html"))
-                  (literal "ÄÏËÕÍÅÎÔÁÃÉÀ"))
-                (literal " ÐÒÅÖÄÅ ÞÅÍ ÐÉÓÁÔØ × <")
-		(create-link
-		  (list (list "HREF" "mailto:questions@FreeBSD.org"))
-                  (literal "questions@FreeBSD.org"))
-                (literal ">.")
-                (make empty-element gi: "br")
-                (literal "ðÏ ×ÏÐÒÏÓÁÍ, Ó×ÑÚÁÎÎÙÍ Ó ÜÔÏÊ ÄÏËÕÍÅÎÔÁÃÉÅÊ, ÐÉÛÉÔÅ <")
-		(create-link (list (list "HREF" "mailto:doc@FreeBSD.org"))
-                  (literal "doc@FreeBSD.org"))
-	        (literal ">.")
-                (make empty-element gi: "br")
-                (literal "ðÏ ×ÏÐÒÏÓÁÍ, Ó×ÑÚÁÎÎÙÍ Ó ÒÕÓÓËÉÍ ÐÅÒÅ×ÏÄÏÍ ÄÏËÕÍÅÎÔÁÃÉÉ, ÐÉÛÉÔÅ × ÒÁÓÓÙÌËÕ <")
-		(create-link (list (list "HREF" "mailto:frdp@FreeBSD.org.ua"))
-                  (literal "frdp@FreeBSD.org.ua"))
-	        (literal ">.")
-                (make empty-element gi: "br")
-                (literal "éÎÆÏÒÍÁÃÉÑ ÐÏ ÐÏÄÐÉÓËÅ ÎÁ ÜÔÕ ÒÁÓÓÙÌËÕ ÎÁÈÏÄÉÔÓÑ ÎÁ ")
-		(create-link
-		  (list (list "HREF" "http://www.FreeBSD.org.ua/resources.html"))
-                  (literal "ÓÁÊÔÅ ÐÒÏÅËÔÁ ÐÅÒÅ×ÏÄÁ"))
-                (literal ".")))))
-      ]]>
-
       <!-- Convert " ... " to '' ... '' in the HTML output. -->
       (element quote
 	(make sequence

share/xml/freebsd-common.dsl

@@ -1,14 +1,6 @@
 <!-- $FreeBSD$ -->
 
-<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
-<!ENTITY % freebsd.l10n PUBLIC "-//FreeBSD//ENTITIES DocBook Language Specific Entities//EN">
-%freebsd.l10n;
-<!ENTITY % freebsd.l10n-common PUBLIC "-//FreeBSD//ENTITIES DocBook Language Neutral Entities//EN">
-%freebsd.l10n-common;
-
-<!ENTITY % output.html  "IGNORE">
-<!ENTITY % output.print "IGNORE">
-]>
+<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN">
 
 <style-sheet>
   <style-specification>
@@ -153,9 +145,7 @@
 
       (element errorname
         (make sequence
-          <![ %output.html;  [ (literal "&#8220;") ]]>
           ($mono-seq$ (process-children))
-          <![ %output.html;  [ (literal "&#8221;") ]]>
           ))
 
       <!-- John Fieber's 'instant' translation specification had

share/xml/freebsd-html.dsl

@@ -1,410 +0,0 @@
-<!-- $FreeBSD$ -->
-
-<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
-<!ENTITY % output.html		"IGNORE">
-<!ENTITY % output.html.images 	"IGNORE">
-
-<!ENTITY % freebsd.l10n PUBLIC "-//FreeBSD//ENTITIES DocBook Language Specific Entities//EN">
-%freebsd.l10n;
-<!ENTITY % freebsd.l10n-common PUBLIC "-//FreeBSD//ENTITIES DocBook Language Neutral Entities//EN">
-%freebsd.l10n-common;
-]>
-
-<style-sheet>
-  <style-specification>
-    <style-specification-body>
-
-      (declare-flow-object-class formatting-instruction
-        "UNREGISTERED::James Clark//Flow Object Class::formatting-instruction")
-
-      <!-- HTML only .................................................... -->
-
-      <![ %output.html; [
-        <!-- Configure the stylesheet using documented variables -->
-
-        (define %hyphenation% #f)        <!-- Silence a warning -->
-
-	<!--
-	  Redefine $user-html-header$ to put </script> in a single line.
-	  This is an ugly hack but it should work.
-	-->
-	(define ($user-html-header$ #!optional
-	                            (home (empty-node-list))
-	                            (up (empty-node-list))
-	                            (prev (empty-node-list))
-	                            (next (empty-node-list)))
-	  ;; Add additional header tags.
-	  (let loop ((tl %html-header-tags%))
-	    (if (or (null? tl) (null? (car tl)))
-	      (empty-sosofo)
-	      (make sequence
-		(cond
-		  ((equal? (normalize "SCRIPT") (car (car tl)))
-		    (make sequence
-		      (make empty-element gi: (car (car tl))
-		                          attributes: (cdr (car tl)))
-		      (htmlnewline)
-		      (make formatting-instruction data: "</")
-		      (make formatting-instruction data: "SCRIPT>")))
-		  (else
-		    (make sequence
-		      (make empty-element gi: (car (car tl))
-					  attributes: (cdr (car tl))))))
-		(loop (cdr tl))))))
-
-        <!-- Use javascript for google analytics -->
-        (define %html-header-script-googlejs%
-		"http://www.FreeBSD.org/layout/js/google.js")
-        (define %html-header-script%
-		#f)
-
-        (define %html-header-tags%
-	  (list (quote ("META"
-			("HTTP-EQUIV" "Content-Type")
-			("CONTENT" "text/html; charset=&doc.html.charset;")))
-		(if %html-header-script%
-		    (list "SCRIPT"
-			  (list "TYPE" "text/javascript")
-			  (list "SRC" %html-header-script-googlejs%))
-		    '())))
-
-        (define %gentext-nav-use-tables%
-          ;; Use tables to build the navigation headers and footers?
-          #t)
-
-        (define %html-ext%
-          ;; Default extension for HTML output files
-          ".html")
-
-        (define %shade-verbatim%
-          ;; Should verbatim environments be shaded?
-          #f)
-
-        (define %use-id-as-filename%
-          ;; Use ID attributes as name for component HTML files?
-          #t)
-
-        (define %root-filename%
-          ;; Name for the root HTML document
-          "index")
-
-        (define html-manifest
-          ;; Write a manifest?
-          #f)
-
-        (define %generate-legalnotice-link%
-          ;; Should legal notices be a link to a separate file?
-          ;;
-          ;; Naturally, this has no effect if you're building one big
-          ;; HTML file.
-          #f)
-
-        (define %generate-docformat-navi-link%
-          ;; Create docformat navi link for HTML output?
-          #f)
-
-;; Taken from Norm's stylesheets; modified to add support for TITLE so
-;; that we get a mouse over definition for acronyms in HTML output.
-
-	(define ($acronym-seq$ #!optional (sosofo (process-children)))
-	  (let* ((acronym-remark (select-elements
-				  (children (current-node))
-				  (normalize "remark"))))
-	    (let* ((title (if (and acronym-remark
-				   (equal? (attribute-string (normalize "role") acronym-remark) "acronym"))
-			      (data acronym-remark)
-			      "")))
-	      (make element gi: "ACRONYM"
-		    attributes: (list
-				 (list "CLASS" (gi))
-				 (list "TITLE" title))
-		    sosofo))))
-
-        (define (book-titlepage-recto-elements)
-          (list (normalize "title")
-                (normalize "subtitle")
-                (normalize "graphic")
-                (normalize "mediaobject")
-                (normalize "corpauthor")
-                (normalize "authorgroup")
-                (normalize "author")
-                (normalize "editor")
-                (normalize "copyright")
-                (normalize "abstract")
-                (normalize "legalnotice")
-                (normalize "isbn")))
-
-        ;; Create a simple navigation link
-        ;; if %generate-docformat-navi-link% defined.
-        (define (make-docformat-navi tlist)
-          (let ((rootgi (gi (sgml-root-element))))
-            (make element gi: "DIV"
-                  attributes: '(("CLASS" "DOCFORAMTNAVI"))
-                  (literal "[ ")
-                  (make-docformat-navi-link rootgi tlist)
-                  (literal " ]"))))
-
-        (define (make-docformat-navi-link rootgi tlist)
-          (make sequence
-            (cond
-             ((null? tlist)               (empty-sosofo))
-             ((null? (car tlist))         (empty-sosofo))
-             ((not (symbol? (car tlist))) (empty-sosofo))
-             ((equal? (car tlist) 'html-split)
-              (make sequence
-                (create-link (list (list "href" "./index.html"))
-                             (literal "&docnavi.split-html;"))
-                (if (not (null? (cdr tlist)))
-                    (make sequence
-                      (literal " / ")
-                      (make-docformat-navi-link rootgi (cdr tlist)))
-                    (empty-sosofo))))
-             ((equal? (car tlist) 'html-single)
-              (make sequence
-                (create-link (list (list "href"
-                                         (string-append "./" (case-fold-down rootgi) ".html")))
-                             (literal "&docnavi.single-html;"))
-                (if (not (null? (cdr tlist)))
-                    (make sequence
-                      (literal " / ")
-                      (make-docformat-navi-link rootgi (cdr tlist)))
-                    (empty-sosofo))))
-             (else (empty-sosofo)))))
-
-        (define (article-titlepage-separator side)
-          (make sequence
-            (if %generate-docformat-navi-link%
-                (make-docformat-navi '(html-split html-single))
-                (empty-sosofo))
-            (make empty-element gi: "HR")))
-
-        (define (book-titlepage-separator side)
-          (if (equal? side 'recto)
-              (make sequence
-                (if %generate-docformat-navi-link%
-                    (make-docformat-navi '(html-split html-single))
-                    (empty-sosofo))
-                (make empty-element gi: "HR"))
-              (empty-sosofo)))
-
-        <!-- This is the text to display at the bottom of each page.
-             Defaults to nothing.  The individual stylesheets should
-             redefine this as necessary. -->
-        (define ($email-footer$)
-          (empty-sosofo))
-
-	(define html-index-filename
-	  (if nochunks
-	    "html.index"
-	    "html-split.index"))
-
-	(define %stylesheet%
-	  "docbook.css")
-
-        <!-- This code handles displaying $email-footer$ at the bottom
-             of each page.
-
-             If "nochunks" is turned on then we make sure that an <hr>
-             is shown first.
-
-             Then create a centered paragraph ("<p>"), and reduce the font
-             size ("<small>").  Then run $email-footer$, which should
-             create the text and links as necessary. -->
-	(define ($html-body-end$)
-          (if (equal? $email-footer$ (normalize ""))
-            (empty-sosofo)
-            (make sequence
-              (if nochunks
-                  (make empty-element gi: "hr")
-                  (empty-sosofo))
-              ($email-footer$))))
-
-        (define %refentry-xref-link%
-          ;; REFENTRY refentry-xref-link
-          ;; PURP Generate URL links when cross-referencing RefEntrys?
-          ;; DESC
-          ;; If true, a web link will be generated, presumably
-          ;; to an online man->HTML gateway.  The text of the link is
-          ;; generated by the $create-refentry-xref-link$ function.
-          ;; /DESC
-          ;; AUTHOR N/A
-          ;; /REFENTRY
-          #t)
-
-        <!-- Specify how to generate the man page link HREF -->
-        (define ($create-refentry-xref-link$ #!optional (n (current-node)))
-          (let* ((r (select-elements (children n) (normalize "refentrytitle")))
-                 (m (select-elements (children n) (normalize "manvolnum")))
-                 (v (attribute-string (normalize "vendor") n))
-                 (u (string-append "http://www.FreeBSD.org/cgi/man.cgi?query="
-                         (data r) "&" "amp;" "sektion=" (data m))))
-            (case v
-              (("current") (string-append u "&" "amp;" "manpath=FreeBSD+9-current"))
-              (("xfree86") (string-append u "&" "amp;" "manpath=XFree86+4.7.0"))
-              (("xorg")    (string-append u "&" "amp;" "manpath=X11R7.4"))
-              (("netbsd")  (string-append u "&" "amp;" "manpath=NetBSD+5.1"))
-              (("openbsd") (string-append u "&" "amp;" "manpath=OpenBSD+4.7"))
-              (("ports")   (string-append u "&" "amp;" "manpath=FreeBSD+8.2-RELEASE+and+Ports"))
-              (else u))))
-
-	<!-- Specify how to generate the link HREF to SVN revision commit page -->
-	<!-- http://svnweb.freebsd.org/base?view=revision&revision=222741 -->
-	(element svnref
-	      (let ((svnurl	(string-append
-	          "http://svnweb.freebsd.org/base?view=revision" "&" "amp;" "revision="
-		       (data (current-node)))))
-		(create-link (list (list "HREF" svnurl)) ($mono-seq$))))
-
-        (element application ($bold-seq$))
-
-        (element citerefentry
-          (let ((href          ($create-refentry-xref-link$)))
-            (if %refentry-xref-link%
-              (create-link (list (list "HREF" href))
-                (if %refentry-xref-italic%
-                  ($italic-seq$)
-                  ($charseq$)))
-              (if %refentry-xref-italic%
-                ($italic-seq$)
-                ($charseq$)))))
-
-	(element filename
-	  (let*	((class		(attribute-string (normalize "role"))))
-	    (cond
-	     ((equal? class "package")
-	      (let* ((urlurl	"http://svnweb.FreeBSD.org/")
-		     (href	(string-append urlurl "ports/head/"
-					       (data (current-node))
-					       "/pkg-descr?revision=HEAD")))
-		(create-link (list (list "HREF" href)) ($mono-seq$))))
-	     (else ($mono-seq$)))))
-
-	;; Do not render email with mailto: when nolink role attribute
-	;; is used or when the email address matches
-	;; @example.{com|net|org}
-	(element email
-	  (let* ((class		(attribute-string (normalize "role"))))
-	    (cond
-	     ((or (equal? class "nolink")
-		  (and (> (string-length (data (current-node)))
-			  11)
-		       (string=?
-			(substring (data (current-node))
-				   (- (string-length (data (current-node))) 11)
-				   (- (string-length (data (current-node))) 4))
-			"example")))
-	      ($code-seq$
-	       (make sequence
-		 (literal "&#60;")
-		 (process-children)
-		 (literal "&#62;"))))
-	     (else
-	      (next-match)))))
-
-	;; Ensure that we start with no preferred mediaobject notations,
-	;; so that in the text-only case we don't choose any of the
-	;; possible images, and fallback to the most appropriate
-	;; textobject
-        (define preferred-mediaobject-notations
-	  '())
-
-	<!-- Convert " ... " to `` ... '' in the HTML output. -->
-	(element quote
-	  (make sequence
-	    (literal "&#8220;")
-	    (process-children)
-	    (literal "&#8221;")))
-
-	;; The special FreeBSD version of the trademark tag handling.
-	;; This function was more or less taken from the DocBook DSSSL
-	;; stylesheets by Norman Walsh.
-	(element trademark
-	  (if (show-tm-symbol? (current-node))
-	      (make sequence
-		($charseq$)
-		(cond
-		 ((equal? (attribute-string "class") (normalize "copyright"))
-		  (make entity-ref name: "copy"))
-		 ((equal? (attribute-string "class") (normalize "registered"))
-		  (make entity-ref name: "reg"))
-		 ((equal? (attribute-string "class") (normalize "service"))
-		  (make element gi: "SUP"
-			(literal "SM")))
-		 (else
-		  (make entity-ref name: "#8482"))))
-	      ($charseq$)))
-
-	;; multiple copyright holders should be separated.
-	(element (copyright holder)
-	  (make sequence
-	    ($charseq$)
-	    (if (not (last-sibling? (current-node)))
-	        (literal ", ")
-	        (empty-sosofo))))
-      ]]>
-
-      <!-- HTML with images  ............................................ -->
-
-      <![ %output.html.images [
-
-; The new Cascading Style Sheets for the HTML output are very confused
-; by our images when used with div class="mediaobject".  We can
-; clear up the confusion by ignoring the whole mess and just
-; displaying the image.
-
-        (element mediaobject
-          (make element gi: "P"
-            ($mediaobject$)))
-
-        (define %graphic-default-extension%
-          "png")
-
-        (define %callout-graphics%
-          ;; Use graphics in callouts?
-          #t)
-
-        (define %callout-graphics-ext%
-          ;; The extension to use for callout images.  This is an extension
-          ;; to the stylesheets, they do not support this functionality
-          ;; natively.
-          ".png")
-
-        (define %callout-graphics-number-limit%
-          ;; Number of largest callout graphic
-          30)
-
-        (define %callout-graphics-path%
-          ;; Path to callout graphics
-          "./imagelib/callouts/")
-
-        ;; Redefine $callout-bug$ to support the %callout-graphic-ext%
-        ;; variable.
-        (define ($callout-bug$ conumber)
-	  (let ((number (if conumber (format-number conumber "1") "0")))
-	    (if conumber
-		(if %callout-graphics%
-	            (if (<= conumber %callout-graphics-number-limit%)
-		        (make empty-element gi: "IMG"
-			      attributes: (list (list "SRC"
-				                      (root-rel-path
-					               (string-append
-						        %callout-graphics-path%
-							number
-	                                                %callout-graphics-ext%)))
-		                                (list "HSPACE" "0")
-			                        (list "VSPACE" "0")
-				                (list "BORDER" "0")
-					        (list "ALT"
-						      (string-append
-	                                               "(" number ")"))))
-		        (make element gi: "B"
-			      (literal "(" (format-number conumber "1") ")")))
-	            (make element gi: "B"
-		          (literal "(" (format-number conumber "1") ")")))
-	        (make element gi: "B"
-	       (literal "(??)")))))
-      ]]>
-
-    </style-specification-body>
-  </style-specification>
-</style-sheet>

share/xml/freebsd-print.dsl

@@ -7,11 +7,6 @@
 <!ENTITY % output.print.justify	"IGNORE">
 <!ENTITY % output.print.twoside	"IGNORE">
 <!ENTITY % output.print.niceheaders	"IGNORE">
-
-<!ENTITY % freebsd.l10n PUBLIC "-//FreeBSD//ENTITIES DocBook Language Specific Entities//EN">
-%freebsd.l10n;
-<!ENTITY % freebsd.l10n-common PUBLIC "-//FreeBSD//ENTITIES DocBook Language Neutral Entities//EN">
-%freebsd.l10n-common;
 ]>
 
 <style-sheet>

share/xml/freebsd.dsl

@@ -1,23 +1,8 @@
 <!-- $FreeBSD$ -->
 
 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
-<!ENTITY % output.html		"IGNORE">
-<!ENTITY % output.print 	"IGNORE">
-
-<!ENTITY % freebsd.l10n PUBLIC "-//FreeBSD//ENTITIES DocBook Language Specific Entities//EN">
-%freebsd.l10n;
-<!ENTITY % freebsd.l10n-common PUBLIC "-//FreeBSD//ENTITIES DocBook Language Neutral Entities//EN">
-%freebsd.l10n-common;
-
-<![ %output.html; [
-<!ENTITY docbook.dsl PUBLIC "-//Norman Walsh//DOCUMENT DocBook HTML Stylesheet//EN" CDATA DSSSL>
-<!ENTITY freebsd.dsl PUBLIC "-//FreeBSD//DOCUMENT DocBook HTML Stylesheet//EN" CDATA DSSSL>
-]]>
-<![ %output.print; [
 <!ENTITY docbook.dsl PUBLIC "-//Norman Walsh//DOCUMENT DocBook Print Stylesheet//EN" CDATA DSSSL>
 <!ENTITY freebsd.dsl PUBLIC "-//FreeBSD//DOCUMENT DocBook Print Stylesheet//EN" CDATA DSSSL>
-]]>
-
 <!ENTITY freebsd-common.dsl PUBLIC "-//FreeBSD//DOCUMENT DocBook Common Stylesheet//EN" CDATA DSSSL>
 ]>
 

sr_YU.ISO8859-2/share/xml/freebsd.dsl

@@ -2,8 +2,6 @@
 
 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
 <!ENTITY freebsd.dsl PUBLIC "-//FreeBSD//DOCUMENT DocBook Language Neutral Stylesheet//EN" CDATA DSSSL>
-<!ENTITY % output.html  "IGNORE">
-<!ENTITY % output.print "IGNORE">
 <!ENTITY % lang.sr.dsssl "IGNORE">
 ]>
 
@@ -15,36 +13,6 @@
         (define %gentext-language% "sr")
       ]]>
 
-      <![ %output.html; [
-	(define ($email-footer$)
-          (make sequence
-	    (make element gi: "p"
-                  attributes: (list (list "align" "center"))
-              (make element gi: "small"
-                (literal "This, and other documents, can be downloaded from ")
-	        (make element gi: "a"
-                      attributes: (list (list "href" "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc"))
-                  (literal "ftp.FreeBSD.org/pub/FreeBSD/doc/"))
-                (literal ".")))
-            (make element gi: "p"
-                  attributes: (list (list "align" "center"))
-              (make element gi: "small"
-                (literal "For questions about FreeBSD, read the ")
-                (make element gi: "a"
-                      attributes: (list (list "href" "http://www.freebsd.org/docs.html"))
-                  (literal "documentation"))
-                (literal " before contacting <")
-                (make element gi: "a"
-                      attributes: (list (list "href" "mailto:questions@FreeBSD.org"))
-                  (literal "questions@FreeBSD.org"))
-                (literal ">.")
-                (make empty-element gi: "br")
-                (literal "For questions about this documentation, e-mail <")
-                (make element gi: "a"
-                      attributes: (list (list "href" "mailto:doc@FreeBSD.org"))
-                  (literal "doc@FreeBSD.org"))
-	        (literal ">.")))))
-      ]]>
     </style-specification-body>
   </style-specification>
 

zh_CN.GB2312/books/porters-handbook/freebsd.dsl

@@ -11,33 +11,11 @@
 
 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
 <!ENTITY freebsd.dsl SYSTEM "../../share/xml/freebsd.dsl" CDATA DSSSL>
-<!ENTITY % output.html  "IGNORE"> 
 ]>
 
 <style-sheet>
   <style-specification use="docbook">
     <style-specification-body>
- 
-      <![ %output.html; [ 
-	(define ($email-footer$)
-          (make sequence
-            (literal "若您有关于 FreeBSD ports 系统的问题， 请发送电子邮件至 <")
-            (create-link (list (list "HREF" "mailto:ports@FreeBSD.org"))
-              (literal "ports@FreeBSD.org"))
-            (literal ">。")
-            (make empty-element gi: "br")
-            (literal "关于此文档的任何问题， 请致函 <")
-            (create-link (list (list "HREF" "mailto:doc@FreeBSD.org"))
-              (literal "doc@FreeBSD.org"))
-            (literal ">。")))
-
-	<!-- Convert " ... " to `` ... '' in the HTML output. -->
-	(element quote
-	  (make sequence
-	    (literal "“")
-	    (process-children)
-	    (literal "”")))
-      ]]>
     </style-specification-body>
   </style-specification>
 

zh_CN.GB2312/share/xml/freebsd.dsl

@@ -7,329 +7,11 @@
 
 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
 <!ENTITY freebsd.dsl PUBLIC "-//FreeBSD//DOCUMENT DocBook Language Neutral Stylesheet//EN" CDATA DSSSL>
-
-<!ENTITY % freebsd.l10n PUBLIC "-//FreeBSD//ENTITIES DocBook Language Specific Entities//EN">
-%freebsd.l10n;
-
-<!ENTITY % output.html  "IGNORE">
-<!ENTITY % output.print "IGNORE">
 ]>
 
 <style-sheet>
   <style-specification use="docbook">
     <style-specification-body>
-      <![ %output.html; [
-	(define ($email-footer$)
-          (make sequence
-	    (make element gi: "p"
-                  attributes: (list (list "align" "center"))
-              (make element gi: "small"
-                (literal "本文档和其它文档可从这里下载：")
-		(create-link
-		  (list (list "HREF" "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc/"))
-                  (literal "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc/"))
-                (literal ".")))
-            (make element gi: "p"
-                  attributes: (list (list "align" "center"))
-              (make element gi: "small"
-                (literal "如果对于FreeBSD有问题，请先阅读")
-		(create-link
-		  (list (list "HREF" "http://www.FreeBSD.org/docs.html"))
-                  (literal "文档"))
-                (literal "，如不能解决再联系<")
-		(create-link
-		  (list (list "HREF" "mailto:questions@FreeBSD.org"))
-                  (literal "questions@FreeBSD.org"))
-                (literal ">.")
-                (make empty-element gi: "br")
-                (literal "关于本文档的问题请发信联系 <")
-		(create-link (list (list "HREF" "mailto:doc@FreeBSD.org"))
-                  (literal "doc@FreeBSD.org"))
-	        (literal ">.")))))
-
-;; 以下几个定义可产生出汉语习惯的章节号。
-;; 很奇怪，不知道定义在
-;; /usr/local/share/xml/docbook/dsssl/modular/common/dbl1zhcn.dsl
-;; 中的zhcn-xref-strings为什么不起作用。
-;; 用Google可以搜索到其它语言翻译者此类抱怨的文章。
-
-;; toc-entry
-;; 修改自 /usr/local/share/xml/docbook/dsssl/modular/html/dbautoc.dsl
-;; Id: dbautoc.dsl,v 1.3 2003/01/15 08:24:13 adicarlo Exp
-;; 在目录中显示：
-;; 第 1 章  XXXXXX
-;;    1.1  XXXXXX (节)
-;;    1.2  XXXXXX (节)
-;; 附录 A XXXXXXX
-;;    A.1 XXXXXXX (节)
-;;    A.2 XXXXXXX (节)
-
-(define (toc-entry tocentry)
-  (make element gi: "DT"
-	(make sequence
-	  (if (equal? (element-label tocentry) "")
-	      (empty-sosofo)
-	      (if (member (gi tocentry) (list (normalize "part") (normalize "chapter")))
-	        (make sequence
-                  (literal "第")
-		  (literal (element-label tocentry))
-		  (literal (gentext-element-name tocentry))
-		  (literal (gentext-label-title-sep (gi tocentry)))
-	        )
-	        (if (equal? (gi tocentry) (normalize "appendix"))
-	          (make sequence
-	            (literal (gentext-element-name tocentry))
-		    (literal (element-label tocentry))
-		    (literal (gentext-label-title-sep (gi tocentry)))
-	          )
-	          (make sequence
-		    (literal (element-label tocentry))
-		    (literal (gentext-label-title-sep (gi tocentry)))
-	          )
-                )
-	      )
-	  )
-
-	  ;; If the tocentry isn't in its own
-	  ;; chunk, don't make a link...
-	  (if (and #f (not (chunk? tocentry)))
-	      (element-title-sosofo tocentry)
-	      (make element gi: "A"
-		    attributes: (list
-				 (list "HREF"
-				       (href-to tocentry)))
-		    (element-title-sosofo tocentry)))
-
-	  ;; Maybe annotate...
-	  (if (and %annotate-toc%
-		   (equal? (gi tocentry) (normalize "refentry")))
-	      (make sequence
-		(dingbat-sosofo "nbsp");
-		(dingbat-sosofo "em-dash");
-		(dingbat-sosofo "nbsp");
-		(toc-annotation tocentry))
-	      (empty-sosofo)))))
-
-;; lot-entry
-;; 修改自 /usr/local/share/xml/docbook/dsssl/modular/html/dbautoc.dsl
-;; Id: dbautoc.dsl,v 1.3 2003/01/15 08:24:13 adicarlo Exp
-;; 在表格清单中显示：
-;; 表 xx-xx. ....
-;; 在插图清单中显示：
-;; 图 xx-xx. ....
-;; 在范例清单中显示：
-;; 例 xx-xx. ....
-
-
-(define (lot-entry tocentry)
-  (make element gi: "DT"
-	(make sequence
-	  (if (equal? (element-label tocentry) "")
-	      (empty-sosofo)
-	      (make sequence
-		(literal (gentext-element-name tocentry))
-		(literal (element-label tocentry))
-		(literal (gentext-label-title-sep
-			  (gi tocentry)))))
-
-	  ;; If the tocentry isn't in its own
-	  ;; chunk, don't make a link...
-	  (if (and #f (not (chunk? tocentry)))
-	      (element-title-sosofo tocentry)
-	      (make element gi: "A"
-		    attributes: (list
-				 (list "HREF"
-				       (href-to tocentry)))
-		    (element-title-sosofo tocentry))))))
-
-;; 修改自 /usr/local/share/xml/docbook/dsssl/modular/html/dbttlpg.dsl
-;; Id: dbttlpg.dsl,v 1.10 2004/10/10 11:55:10 petere78 Exp
-;; 使每部分的开头页(称为Title Page)显示“第xx部分”
-
-(mode part-titlepage-recto-mode
-  (element title
-    (let ((division (ancestor-member (current-node) (division-element-list))))
-      (make element gi: "H1"
-	    attributes: (list (list "CLASS" (gi)))
-	    (if (string=? (element-label division) "")
-		(empty-sosofo)
-		(literal "第"
-                         (element-label division)
-                         (gentext-element-name division)
-			 (gentext-label-title-sep (gi division))))
-	    (with-mode title-mode
-	      (process-children)))))
-)
-
-
-;; 修改自/usr/local/share/xml/docbook/dsssl/modular/html/dbcompon.dsl
-;; Id: dbcompon.dsl,v 1.8 2003/04/29 05:49:21 adicarlo Exp
-;; 使每章第一页上显示“第xx章”
-
-(define ($component-title$ #!optional (titlegi "H1") (subtitlegi "H2"))
-  (let* ((info (cond
-		((equal? (gi) (normalize "article"))
-		 (node-list-filter-by-gi (children (current-node))
-					 (list (normalize "artheader")
-					       (normalize "articleinfo"))))
-		((or
-                  (equal? (gi) (normalize "appendix"))
-                  (equal? (gi) (normalize "bibliography"))
-                  (equal? (gi) (normalize "chapter"))
-                  (equal? (gi) (normalize "glossary"))
-                  (equal? (gi) (normalize "index"))
-                  (equal? (gi) (normalize "preface"))
-                  (equal? (gi) (normalize "reference"))
-                  (equal? (gi) (normalize "setindex")))
-		 (select-elements (children (current-node)) (normalize "docinfo")))
-		(else
-		 (empty-node-list))))
-	 (exp-children (if (node-list-empty? info)
-			   (empty-node-list)
-			   (expand-children (children info)
-					    (list (normalize "bookbiblio")
-						  (normalize "bibliomisc")
-						  (normalize "biblioset")))))
-	 (parent-titles (select-elements (children (current-node)) (normalize "title")))
-	 (titles	(if (node-list-empty? parent-titles)
-			    (select-elements exp-children (normalize "title"))
-			    parent-titles))
-	 (parent-subttl (select-elements (children (current-node)) (normalize "subtitle")))
-	 (subtitles	(if (node-list-empty? parent-subttl)
-			    (select-elements exp-children (normalize "subtitle"))
-			    parent-subttl)))
-    (make sequence
-      (make element gi: titlegi
-	    (make sequence
-	      (make element gi: "A"
-		  attributes: (list (list "NAME" (element-id)))
-		  (empty-sosofo))
-	      (if (and %chapter-autolabel%
-		       (or (equal? (gi) (normalize "chapter"))
-			   (equal? (gi) (normalize "appendix"))))
-		  (if (equal? (gi) (normalize "chapter"))
-		      (literal "第"
-			   (element-label (current-node))
-                           (gentext-element-name-space (gi))
-			   (gentext-label-title-sep (gi))
- 		      )
-		      (literal (gentext-element-name-space (gi))
-			   (element-label (current-node))
-			   (gentext-label-title-sep (gi))
-		      )
-		  )
-		  (empty-sosofo))
-	      (if (node-list-empty? titles)
-		  (element-title-sosofo) ;; get a default!
-		  (with-mode title-mode
-		    (process-node-list titles)))))
-      (if (node-list-empty? subtitles)
-	  (empty-sosofo)
-	  (with-mode subtitle-mode
-	    (make element gi: subtitlegi
-		  (process-node-list subtitles)))))))
-
-;; 修改自/usr/local/share/xml/docbook/dsssl/modular/html/dbnavig.dsl
-;; Id: dbnavig.dsl,v 1.3 2001/07/05 12:08:42 nwalsh Exp
-;; 使页眉上显示“第xx章”等等。
-
-(define (nav-context-sosofo elemnode)
-  (let* ((component     (ancestor-member elemnode
-					 (append (book-element-list)
-						 (division-element-list)
-						 (component-element-list))))
-	 (context-text  (inherited-dbhtml-value elemnode "context-text")))
-    (if (and context-text (not (string=? context-text "")))
-	(literal context-text)
-	(if (equal? (element-label component) "")
-	    (make sequence
-	      (element-title-sosofo component))
-	    (make sequence
-	      ;; Special case.  This is a bit of a hack.
-	      ;; I need to revisit this aspect of
-	      ;; appendixes.
-	      (if (and (equal? (gi component) (normalize "appendix"))
-		       (or (equal? (gi elemnode) (normalize "sect1"))
-			   (equal? (gi elemnode) (normalize "section")))
-		       (equal? (gi (parent component)) (normalize "article")))
-		  (element-label-sosofo component)
-		  (if (equal? (gi component) (normalize "chapter"))
-		    (make sequence
-                      (literal "第")
-                      (element-label-sosofo component)
-                      (literal (gentext-element-name-space (gi component)))
-                    )
-	            (make sequence
-	              (literal (gentext-element-name-space (gi component)))
-	              (element-label-sosofo component)
-	            )
-	          )
-	      )
-	      (literal (gentext-label-title-sep (gi component)))
-	      (element-title-sosofo component))))))
-
-<!--
-   修改自 /usr/local/share/xml/docbook/dsssl/modular/html/dbhtml.dsl
-   Id: dbhtml.dsl,v 1.5 2004/10/10 11:55:10 petere78 Exp
-   按中文书写习惯，每段开头须空两格。
-   但是在注释、列表等特定位置，虽然也使用了SGML的<para></para>标记，却不应空两格。
-   故只有<para></para>处于文章内一般位置时，才需要空两格。
--->
-
-(define ($paragraph$ #!optional (para-wrapper "P"))
-  (let ((footnotes (select-elements (descendants (current-node))
-				    (normalize "footnote")))
-	(tgroup (have-ancestor? (normalize "tgroup"))))
-    (make sequence
-      (make element gi: para-wrapper
-	    attributes: (append
-			 (if %default-quadding%
-			     (list (list "ALIGN" %default-quadding%))
-			     '()))
-            (if (equal? (gi) (normalize "para"))
-                (if (member (gi (parent (current-node)))
-                        (list (normalize "article")
-                              (normalize "book")
-                              (normalize "abstract")
-                              (normalize "chapter")
-                              (normalize "sect1")
-                              (normalize "sect2")
-                              (normalize "sect3")
-                              (normalize "sect4")
-                              (normalize "sect5")
-                        )
-                    )
-                 (literal "　　")
-                 (empty-sosofo)
-                )
-                (empty-sosofo)
-            )
-	    (process-children))
-      (if (or %footnotes-at-end% tgroup (node-list-empty? footnotes))
-	  (empty-sosofo)
-	  (make element gi: "BLOCKQUOTE"
-		attributes: (list
-			     (list "CLASS" "FOOTNOTES"))
-		(with-mode footnote-mode
-		  (process-node-list footnotes)))))))
-
-;; 对于要强调的部分，中文习惯于只用粗体，斜体字不够醒目
-;; 修改自/usr/local/share/xml/docbook/dsssl/modular/html/dbinline.dsl
-;; Id: dbinline.dsl,v 1.11 2004/09/14 14:47:10 petere78 Exp
-
-(element emphasis
-  (let* ((class (if (and (attribute-string (normalize "role"))
-			 %emphasis-propagates-style%)
-		    (attribute-string (normalize "role"))
-		    "emphasis")))
-    (make element gi: "SPAN"
-	  attributes: (list (list "CLASS" class))
-	      ($bold-seq$))))
-
-      ]]>
-
-
-      <![ %output.print; [
 
 ;; ÐÞ¸Ä×Ô/usr/local/share/xml/docbook/dsssl/modular/print/dbcompon.dsl
 ;; Id: dbcompon.dsl,v 1.5 2003/04/29 06:33:10 adicarlo Exp
@@ -600,10 +282,6 @@
       ($bold-seq$)
 )
 
-      ]]>
-
-      <!-- Both sets of stylesheets ..................................... -->
-
       (define (local-zhcn-label-title-sep)
         (list
           (list (normalize "warning")		": ")

zh_TW.Big5/books/porters-handbook/freebsd.dsl

@@ -6,33 +6,11 @@
 
 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
 <!ENTITY freebsd.dsl SYSTEM "../../share/xml/freebsd.dsl" CDATA DSSSL>
-<!ENTITY % output.html  "IGNORE"> 
 ]>
 
 <style-sheet>
   <style-specification use="docbook">
     <style-specification-body>
- 
-      <![ %output.html; [ 
-	(define ($email-footer$)
-          (make sequence
-            (literal "For questions about the FreeBSD ports system, e-mail <")
-            (create-link (list (list "HREF" "mailto:ports@FreeBSD.org"))
-              (literal "ports@FreeBSD.org"))
-            (literal ">.")
-            (make empty-element gi: "br")
-            (literal "For questions about this documentation, e-mail <")
-            (create-link (list (list "HREF" "mailto:doc@FreeBSD.org"))
-              (literal "doc@FreeBSD.org"))
-            (literal ">.")))
-
-	<!-- Convert " ... " to `` ... '' in the HTML output. -->
-	(element quote
-	  (make sequence
-	    (literal "``")
-	    (process-children)
-	    (literal "''")))
-      ]]>
     </style-specification-body>
   </style-specification>
 

zh_TW.Big5/share/xml/freebsd.dsl

@@ -2,59 +2,11 @@
 
 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
 <!ENTITY freebsd.dsl PUBLIC "-//FreeBSD//DOCUMENT DocBook Language Neutral Stylesheet//EN" CDATA DSSSL>
-
-<!ENTITY % output.html  "IGNORE">
-<!ENTITY % output.print "IGNORE">
 ]>
 
 <style-sheet>
   <style-specification use="docbook">
     <style-specification-body>
-      <![ %output.html; [
-
-	(define ($email-footer$)
-          (make sequence
-	    (make element gi: "p"
-                  attributes: (list (list "align" "center"))
-              (make element gi: "small"
-                (literal "本文及其他文件，可由此下載：")
-		(create-link
-		  (list (list "HREF" "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc/"))
-                  (literal "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc/"))
-                (literal "。")))
-            (make element gi: "p"
-                  attributes: (list (list "align" "center"))
-              (make element gi: "small"
-                (literal "若有 FreeBSD 方面疑問，請先閱讀 ")
-		(create-link
-		  (list (list "HREF" "http://www.FreeBSD.org/docs.html"))
-                  (literal "FreeBSD 相關文件"))
-                (literal "，如不能解決的話，再洽詢 <")
-		(create-link
-		  (list (list "HREF" "mailto:questions@FreeBSD.org"))
-                  (literal "questions@FreeBSD.org"))
-                (literal ">。")
-                (make empty-element gi: "br")
-                (literal "關於本文件的問題，請洽詢 <")
-		(create-link (list (list "HREF" "mailto:doc@FreeBSD.org"))
-                  (literal "doc@FreeBSD.org"))
-	        (literal ">。")))))
-
-;; 對於要強調的部分，中文慣用粗體，中文斜體字不夠醒目，且妨礙閱讀，
-;; 修改自 /usr/local/share/xml/docbook/dsssl/modular/html/dbinline.dsl
-;; Id: dbinline.dsl,v 1.11 2004/09/14 14:47:10 petere78 Exp
-;; chinsan: 這段取自 zh_CN 成果 :p
-
-(element emphasis
-  (let* ((class (if (and (attribute-string (normalize "role"))
-			 %emphasis-propagates-style%)
-		    (attribute-string (normalize "role"))
-		    "emphasis")))
-    (make element gi: "SPAN"
-	  attributes: (list (list "CLASS" class))
-	      ($bold-seq$))))
-
-      ]]>
     </style-specification-body>
   </style-specification>