diff --git a/da_DK.ISO8859-1/share/sgml/freebsd.dsl b/da_DK.ISO8859-1/share/sgml/freebsd.dsl index 694d5bf328..d2dfe66fbc 100644 --- a/da_DK.ISO8859-1/share/sgml/freebsd.dsl +++ b/da_DK.ISO8859-1/share/sgml/freebsd.dsl @@ -1,253 +1,55 @@ + - ]> - (define %refentry-xref-link% #t) - (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 sprgsml om FreeBSD, ls ") (create-link (list (list "HREF" "http://www.FreeBSD.org/docs.html")) (literal "dokumentationen")) (literal " fr du kontakter <") (create-link (list (list "HREF" "mailto:questions@FreeBSD.org")) (literal "questions@FreeBSD.org")) (literal ">.") (make empty-element gi: "br") (literal "For sprgsml angende denne dokumentation, e-mail <") (create-link (list (list "HREF" "mailto:doc@FreeBSD.org")) (literal "doc@FreeBSD.org")) (literal ">."))))) ]]> - - - - - - - - number ;; then get the apparent level - (substring renderas 4 5)) ;; from "renderas", - (SECTLEVEL))) ;; else use the real level - (hs (HSIZE (- 4 hlevel)))) - - (make sequence - (make paragraph - font-family-name: %title-font-family% - font-weight: (if (< hlevel 5) 'bold 'medium) - font-posture: (if (< hlevel 5) 'upright 'italic) - font-size: hs - line-spacing: (* hs %line-spacing-factor%) - space-before: (* hs %head-before-factor%) - space-after: (if (node-list-empty? subtitles) - (* hs %head-after-factor%) - 0pt) - start-indent: (if (or (>= hlevel 3) - (member (gi) (list (normalize "refsynopsisdiv") - (normalize "refsect1") - (normalize "refsect2") - (normalize "refsect3")))) - %body-start-indent% - 0pt) - first-line-start-indent: 0pt - quadding: %section-title-quadding% - keep-with-next?: #t - heading-level: (if %generate-heading-level% (+ hlevel 1) 0) - ;; SimpleSects are never AUTO numbered...they aren't hierarchical - (if (> hlevel (- max-section-level-labels 1)) - (empty-sosofo) - (if (string=? (element-label (current-node)) "") - (empty-sosofo) - (literal (element-label (current-node)) - (gentext-label-title-sep (gi sect))))) - (element-title-sosofo (current-node))) - (with-mode section-title-mode - (process-node-list subtitles)) - ($section-info$ info)))) - - ]]> - - - - (define (local-en-label-title-sep) - (list - (list (normalize "warning") ": ") - (list (normalize "caution") ": ") - (list (normalize "chapter") " ") - (list (normalize "sect1") " ") - (list (normalize "sect2") " ") - (list (normalize "sect3") " ") - (list (normalize "sect4") " ") - (list (normalize "sect5") " ") - )) - (define (local-da-label-title-sep) (list (list (normalize "warning") ": ") )) - + diff --git a/de_DE.ISO8859-1/share/sgml/freebsd.dsl b/de_DE.ISO8859-1/share/sgml/freebsd.dsl index 0b83d26fb8..40c86e7043 100644 --- a/de_DE.ISO8859-1/share/sgml/freebsd.dsl +++ b/de_DE.ISO8859-1/share/sgml/freebsd.dsl @@ -1,47 +1,44 @@ %freebsd.l10n; ]> - (define %refentry-xref-link% #t) - (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 ">."))))) ]]> diff --git a/el_GR.ISO8859-7/share/sgml/freebsd.dsl b/el_GR.ISO8859-7/share/sgml/freebsd.dsl index 307cc350b2..4316fe3af0 100644 --- a/el_GR.ISO8859-7/share/sgml/freebsd.dsl +++ b/el_GR.ISO8859-7/share/sgml/freebsd.dsl @@ -1,276 +1,89 @@ %freebsd.l10n; - ]> - (define %refentry-xref-link% #t) - (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"))) ]]> - - - - - - - number ;; then get the apparent level - (substring renderas 4 5)) ;; from "renderas", - (SECTLEVEL))) ;; else use the real level - (hs (HSIZE (- 4 hlevel)))) - - (make sequence - (make paragraph - font-family-name: %title-font-family% - font-weight: (if (< hlevel 5) 'bold 'medium) - font-posture: (if (< hlevel 5) 'upright 'italic) - font-size: hs - line-spacing: (* hs %line-spacing-factor%) - space-before: (* hs %head-before-factor%) - space-after: (if (node-list-empty? subtitles) - (* hs %head-after-factor%) - 0pt) - start-indent: (if (or (>= hlevel 3) - (member (gi) (list (normalize "refsynopsisdiv") - (normalize "refsect1") - (normalize "refsect2") - (normalize "refsect3")))) - %body-start-indent% - 0pt) - first-line-start-indent: 0pt - quadding: %section-title-quadding% - keep-with-next?: #t - heading-level: (if %generate-heading-level% (+ hlevel 1) 0) - ;; SimpleSects are never AUTO numbered...they aren't hierarchical - (if (> hlevel (- max-section-level-labels 1)) - (empty-sosofo) - (if (string=? (element-label (current-node)) "") - (empty-sosofo) - (literal (element-label (current-node)) - (gentext-label-title-sep (gi sect))))) - (element-title-sosofo (current-node))) - (with-mode section-title-mode - (process-node-list subtitles)) - ($section-info$ info)))) - - ]]> - - - (define (local-el-label-title-sep) (list (list (normalize "warning") ": ") (list (normalize "caution") ": ") (list (normalize "chapter") " ") (list (normalize "sect1") " ") (list (normalize "sect2") " ") (list (normalize "sect3") " ") (list (normalize "sect4") " ") (list (normalize "sect5") " ") )) diff --git a/en_US.ISO8859-1/share/sgml/freebsd.dsl b/en_US.ISO8859-1/share/sgml/freebsd.dsl index c6569f7342..a90677e05f 100644 --- a/en_US.ISO8859-1/share/sgml/freebsd.dsl +++ b/en_US.ISO8859-1/share/sgml/freebsd.dsl @@ -1,251 +1,21 @@ %freebsd.l10n; ]> - - - - (define %refentry-xref-link% #t) - - (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 ") - (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 questions about FreeBSD, read the ") - (create-link - (list (list "HREF" "http://www.FreeBSD.org/docs.html")) - (literal "documentation")) - (literal " before contacting <") - (create-link - (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 <") - (create-link (list (list "HREF" "mailto:doc@FreeBSD.org")) - (literal "doc@FreeBSD.org")) - (literal ">."))))) - ]]> - - - - - - - - number ;; then get the apparent level - (substring renderas 4 5)) ;; from "renderas", - (SECTLEVEL))) ;; else use the real level - (hs (HSIZE (- 4 hlevel)))) - - (make sequence - (make paragraph - font-family-name: %title-font-family% - font-weight: (if (< hlevel 5) 'bold 'medium) - font-posture: (if (< hlevel 5) 'upright 'italic) - font-size: hs - line-spacing: (* hs %line-spacing-factor%) - space-before: (* hs %head-before-factor%) - space-after: (if (node-list-empty? subtitles) - (* hs %head-after-factor%) - 0pt) - start-indent: (if (or (>= hlevel 3) - (member (gi) (list (normalize "refsynopsisdiv") - (normalize "refsect1") - (normalize "refsect2") - (normalize "refsect3")))) - %body-start-indent% - 0pt) - first-line-start-indent: 0pt - quadding: %section-title-quadding% - keep-with-next?: #t - heading-level: (if %generate-heading-level% (+ hlevel 1) 0) - ;; SimpleSects are never AUTO numbered...they aren't hierarchical - (if (> hlevel (- max-section-level-labels 1)) - (empty-sosofo) - (if (string=? (element-label (current-node)) "") - (empty-sosofo) - (literal (element-label (current-node)) - (gentext-label-title-sep (gi sect))))) - (element-title-sosofo (current-node))) - (with-mode section-title-mode - (process-node-list subtitles)) - ($section-info$ info)))) - - ]]> - - - - (define (local-en-label-title-sep) - (list - (list (normalize "warning") ": ") - (list (normalize "caution") ": ") - (list (normalize "chapter") " ") - (list (normalize "sect1") " ") - (list (normalize "sect2") " ") - (list (normalize "sect3") " ") - (list (normalize "sect4") " ") - (list (normalize "sect5") " ") - )) - diff --git a/es_ES.ISO8859-1/share/sgml/freebsd.dsl b/es_ES.ISO8859-1/share/sgml/freebsd.dsl index 7a999b331f..b61562899c 100644 --- a/es_ES.ISO8859-1/share/sgml/freebsd.dsl +++ b/es_ES.ISO8859-1/share/sgml/freebsd.dsl @@ -1,247 +1,50 @@ + - ]> - (define %refentry-xref-link% #t) - (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 "documentacin")) (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 "Enve sus preguntas sobre la documentacin a <") (create-link (list (list "HREF" "mailto:doc@FreeBSD.org")) (literal "doc@FreeBSD.org")) (literal ">."))))) ]]> - - - - - - - number ;; then get the apparent level - (substring renderas 4 5)) ;; from "renderas", - (SECTLEVEL))) ;; else use the real level - (hs (HSIZE (- 4 hlevel)))) - - (make sequence - (make paragraph - font-family-name: %title-font-family% - font-weight: (if (< hlevel 5) 'bold 'medium) - font-posture: (if (< hlevel 5) 'upright 'italic) - font-size: hs - line-spacing: (* hs %line-spacing-factor%) - space-before: (* hs %head-before-factor%) - space-after: (if (node-list-empty? subtitles) - (* hs %head-after-factor%) - 0pt) - start-indent: (if (or (>= hlevel 3) - (member (gi) (list (normalize "refsynopsisdiv") - (normalize "refsect1") - (normalize "refsect2") - (normalize "refsect3")))) - %body-start-indent% - 0pt) - first-line-start-indent: 0pt - quadding: %section-title-quadding% - keep-with-next?: #t - heading-level: (if %generate-heading-level% (+ hlevel 1) 0) - ;; SimpleSects are never AUTO numbered...they aren't hierarchical - (if (> hlevel (- max-section-level-labels 1)) - (empty-sosofo) - (if (string=? (element-label (current-node)) "") - (empty-sosofo) - (literal (element-label (current-node)) - (gentext-label-title-sep (gi sect))))) - (element-title-sosofo (current-node))) - (with-mode section-title-mode - (process-node-list subtitles)) - ($section-info$ info)))) - - ]]> - - - - (define (local-en-label-title-sep) - (list - (list (normalize "warning") ": ") - (list (normalize "caution") ": ") - (list (normalize "chapter") " ") - (list (normalize "sect1") " ") - (list (normalize "sect2") " ") - (list (normalize "sect3") " ") - (list (normalize "sect4") " ") - (list (normalize "sect5") " ") - )) - diff --git a/fr_FR.ISO8859-1/share/sgml/freebsd.dsl b/fr_FR.ISO8859-1/share/sgml/freebsd.dsl index 209b70ca19..36f354c060 100644 --- a/fr_FR.ISO8859-1/share/sgml/freebsd.dsl +++ b/fr_FR.ISO8859-1/share/sgml/freebsd.dsl @@ -1,73 +1,71 @@ + ]> - (define %refentry-xref-link% #t) - (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 tlcharg 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 ">."))))) ]]> (define (local-fr-label-title-sep) (list (list (normalize "warning") "\U-00A0;: ") )) diff --git a/hu_HU.ISO8859-2/share/sgml/freebsd.dsl b/hu_HU.ISO8859-2/share/sgml/freebsd.dsl index 1a9197e6a6..3920a59a75 100644 --- a/hu_HU.ISO8859-2/share/sgml/freebsd.dsl +++ b/hu_HU.ISO8859-2/share/sgml/freebsd.dsl @@ -1,56 +1,52 @@ %freebsd.l10n; ]> - (define %refentry-xref-link% #t) - (define ($email-footer$) (make sequence (make element gi: "p" attributes: (list (list "align" "center")) (make element gi: "small" (literal "Ha krdse van a FreeBSD-vel kapcsolatban, a kvetkez cmre 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 krdse, krjk erre a cmre 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") ": ") )) ]]> diff --git a/it_IT.ISO8859-15/share/sgml/freebsd.dsl b/it_IT.ISO8859-15/share/sgml/freebsd.dsl index 3a4dd642b9..d9f009ce74 100644 --- a/it_IT.ISO8859-15/share/sgml/freebsd.dsl +++ b/it_IT.ISO8859-15/share/sgml/freebsd.dsl @@ -1,72 +1,65 @@ + - ]> - - - (define %refentry-xref-link% #t) - (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") ": ") (list (normalize "caution") ": ") (list (normalize "chapter") " ") (list (normalize "sect1") " ") (list (normalize "sect2") " ") (list (normalize "sect3") " ") (list (normalize "sect4") " ") (list (normalize "sect5") " ") )) diff --git a/ja_JP.eucJP/share/sgml/freebsd.dsl b/ja_JP.eucJP/share/sgml/freebsd.dsl index c6aa195d20..aa63fe9fb4 100644 --- a/ja_JP.eucJP/share/sgml/freebsd.dsl +++ b/ja_JP.eucJP/share/sgml/freebsd.dsl @@ -1,15 +1,49 @@ + + +%freebsd.l10n; + + + ]> - + .") + (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 ">."))))) + ]]> - + diff --git a/mn_MN.UTF-8/share/sgml/freebsd.dsl b/mn_MN.UTF-8/share/sgml/freebsd.dsl index 2191461197..5f43deb764 100644 --- a/mn_MN.UTF-8/share/sgml/freebsd.dsl +++ b/mn_MN.UTF-8/share/sgml/freebsd.dsl @@ -1,273 +1,72 @@ %freebsd.l10n; - ]> - - - - - (define %refentry-xref-link% #t) - (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 "> хаягаар цахим захидал явуулна уу."))))) ]]> - - - - - - - number ;; then get the apparent level - (substring renderas 4 5)) ;; from "renderas", - (SECTLEVEL))) ;; else use the real level - (hs (HSIZE (- 4 hlevel)))) - - (make sequence - (make paragraph - font-family-name: %title-font-family% - font-weight: (if (< hlevel 5) 'bold 'medium) - font-posture: (if (< hlevel 5) 'upright 'italic) - font-size: hs - line-spacing: (* hs %line-spacing-factor%) - space-before: (* hs %head-before-factor%) - space-after: (if (node-list-empty? subtitles) - (* hs %head-after-factor%) - 0pt) - start-indent: (if (or (>= hlevel 3) - (member (gi) (list (normalize "refsynopsisdiv") - (normalize "refsect1") - (normalize "refsect2") - (normalize "refsect3")))) - %body-start-indent% - 0pt) - first-line-start-indent: 0pt - quadding: %section-title-quadding% - keep-with-next?: #t - heading-level: (if %generate-heading-level% (+ hlevel 1) 0) - ;; SimpleSects are never AUTO numbered...they aren't hierarchical - (if (> hlevel (- max-section-level-labels 1)) - (empty-sosofo) - (if (string=? (element-label (current-node)) "") - (empty-sosofo) - (literal (element-label (current-node)) - (gentext-label-title-sep (gi sect))))) - (element-title-sosofo (current-node))) - (with-mode section-title-mode - (process-node-list subtitles)) - ($section-info$ info)))) - - ]]> - - - - (define (local-en-label-title-sep) - (list - (list (normalize "warning") ": ") - (list (normalize "caution") ": ") - (list (normalize "chapter") " ") - (list (normalize "sect1") " ") - (list (normalize "sect2") " ") - (list (normalize "sect3") " ") - (list (normalize "sect4") " ") - (list (normalize "sect5") " ") - )) - (define (local-mn-label-title-sep) (list (list (normalize "warning") ": ") (list (normalize "caution") ": ") )) diff --git a/nl_NL.ISO8859-1/share/sgml/freebsd.dsl b/nl_NL.ISO8859-1/share/sgml/freebsd.dsl index 118c6c7f7e..f9c91a91e6 100644 --- a/nl_NL.ISO8859-1/share/sgml/freebsd.dsl +++ b/nl_NL.ISO8859-1/share/sgml/freebsd.dsl @@ -1,258 +1,57 @@ %freebsd.l10n; - ]> - - - (define %refentry-xref-link% #t) - (define ($email-footer$) (make sequence (make element gi: "p" attributes: (list (list "align" "center")) (make element gi: "small" (literal "Deze en andere documenten kunnen worden gedownload van ") (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 "Lees voor vragen over FreeBSD de ") (create-link (list (list "HREF" "http://www.FreeBSD.org/docs.html")) (literal "documentatie")) (literal " alvorens contact te zoeken <") (create-link (list (list "HREF" "mailto:questions@FreeBSD.org")) (literal "questions@FreeBSD.org")) (literal ">.") (make empty-element gi: "br") (literal "Vragen over deze documentatie kunnen per e-mail naar <") (create-link (list (list "HREF" "mailto:doc@FreeBSD.org")) (literal "doc@FreeBSD.org")) (literal ">."))))) ]]> - - - - - - - - number ;; then get the apparent level - (substring renderas 4 5)) ;; from "renderas", - (SECTLEVEL))) ;; else use the real level - (hs (HSIZE (- 4 hlevel)))) - - (make sequence - (make paragraph - font-family-name: %title-font-family% - font-weight: (if (< hlevel 5) 'bold 'medium) - font-posture: (if (< hlevel 5) 'upright 'italic) - font-size: hs - line-spacing: (* hs %line-spacing-factor%) - space-before: (* hs %head-before-factor%) - space-after: (if (node-list-empty? subtitles) - (* hs %head-after-factor%) - 0pt) - start-indent: (if (or (>= hlevel 3) - (member (gi) (list (normalize "refsynopsisdiv") - (normalize "refsect1") - (normalize "refsect2") - (normalize "refsect3")))) - %body-start-indent% - 0pt) - first-line-start-indent: 0pt - quadding: %section-title-quadding% - keep-with-next?: #t - heading-level: (if %generate-heading-level% (+ hlevel 1) 0) - ;; SimpleSects are never AUTO numbered...they aren't hierarchical - (if (> hlevel (- max-section-level-labels 1)) - (empty-sosofo) - (if (string=? (element-label (current-node)) "") - (empty-sosofo) - (literal (element-label (current-node)) - (gentext-label-title-sep (gi sect))))) - (element-title-sosofo (current-node))) - (with-mode section-title-mode - (process-node-list subtitles)) - ($section-info$ info)))) - - ]]> - - - - (define (local-en-label-title-sep) - (list - (list (normalize "warning") ": ") - (list (normalize "caution") ": ") - (list (normalize "chapter") " ") - (list (normalize "sect1") " ") - (list (normalize "sect2") " ") - (list (normalize "sect3") " ") - (list (normalize "sect4") " ") - (list (normalize "sect5") " ") - )) - diff --git a/pl_PL.ISO8859-2/share/sgml/freebsd.dsl b/pl_PL.ISO8859-2/share/sgml/freebsd.dsl index 0cefa84848..267dad116d 100644 --- a/pl_PL.ISO8859-2/share/sgml/freebsd.dsl +++ b/pl_PL.ISO8859-2/share/sgml/freebsd.dsl @@ -1,257 +1,56 @@ %freebsd.l10n; - ]> - - - (define %refentry-xref-link% #t) - (define ($email-footer$) (make sequence (make element gi: "p" attributes: (list (list "align" "center")) (make element gi: "small" (literal "Ten i inne dokumenty mona 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 dostpn ") (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 ">."))))) ]]> - - - - - - - - number ;; then get the apparent level - (substring renderas 4 5)) ;; from "renderas", - (SECTLEVEL))) ;; else use the real level - (hs (HSIZE (- 4 hlevel)))) - - (make sequence - (make paragraph - font-family-name: %title-font-family% - font-weight: (if (< hlevel 5) 'bold 'medium) - font-posture: (if (< hlevel 5) 'upright 'italic) - font-size: hs - line-spacing: (* hs %line-spacing-factor%) - space-before: (* hs %head-before-factor%) - space-after: (if (node-list-empty? subtitles) - (* hs %head-after-factor%) - 0pt) - start-indent: (if (or (>= hlevel 3) - (member (gi) (list (normalize "refsynopsisdiv") - (normalize "refsect1") - (normalize "refsect2") - (normalize "refsect3")))) - %body-start-indent% - 0pt) - first-line-start-indent: 0pt - quadding: %section-title-quadding% - keep-with-next?: #t - heading-level: (if %generate-heading-level% (+ hlevel 1) 0) - ;; SimpleSects are never AUTO numbered...they aren't hierarchical - (if (> hlevel (- max-section-level-labels 1)) - (empty-sosofo) - (if (string=? (element-label (current-node)) "") - (empty-sosofo) - (literal (element-label (current-node)) - (gentext-label-title-sep (gi sect))))) - (element-title-sosofo (current-node))) - (with-mode section-title-mode - (process-node-list subtitles)) - ($section-info$ info)))) - - ]]> - - - - (define (local-en-label-title-sep) - (list - (list (normalize "warning") ": ") - (list (normalize "caution") ": ") - (list (normalize "chapter") " ") - (list (normalize "sect1") " ") - (list (normalize "sect2") " ") - (list (normalize "sect3") " ") - (list (normalize "sect4") " ") - (list (normalize "sect5") " ") - )) - diff --git a/pt_BR.ISO8859-1/share/sgml/freebsd.dsl b/pt_BR.ISO8859-1/share/sgml/freebsd.dsl index 42583fd922..992814f508 100644 --- a/pt_BR.ISO8859-1/share/sgml/freebsd.dsl +++ b/pt_BR.ISO8859-1/share/sgml/freebsd.dsl @@ -1,263 +1,63 @@ + - ]> (define %default-language% "pt_br") - - - (define %refentry-xref-link% #t) - (define ($email-footer$) (make sequence (make element gi: "p" attributes: (list (list "align" "center")) (make element gi: "small" (literal "Este, e outros documentos, podem ser obtidos em ") (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 "Para perguntas sobre FreeBSD, leia a ") (create-link (list (list "HREF" "http://www.FreeBSD.org/docs.html")) (literal "documenta\U-00E7;\U-00E3;o")) (literal " antes de contatar <") (create-link (list (list "HREF" "mailto:questions@FreeBSD.org")) (literal "questions@FreeBSD.org")) (literal ">.") (make empty-element gi: "br") (literal "Para perguntas sobre esta documenta\U-00E7;\U-00E3;o, envie e-mail para <") (create-link (list (list "HREF" "mailto:doc@FreeBSD.org")) (literal "doc@FreeBSD.org")) (literal ">."))))) ]]> - - - - - - - - number ;; then get the apparent level - (substring renderas 4 5)) ;; from "renderas", - (SECTLEVEL))) ;; else use the real level - (hs (HSIZE (- 4 hlevel)))) - - (make sequence - (make paragraph - font-family-name: %title-font-family% - font-weight: (if (< hlevel 5) 'bold 'medium) - font-posture: (if (< hlevel 5) 'upright 'italic) - font-size: hs - line-spacing: (* hs %line-spacing-factor%) - space-before: (* hs %head-before-factor%) - space-after: (if (node-list-empty? subtitles) - (* hs %head-after-factor%) - 0pt) - start-indent: (if (or (>= hlevel 3) - (member (gi) (list (normalize "refsynopsisdiv") - (normalize "refsect1") - (normalize "refsect2") - (normalize "refsect3")))) - %body-start-indent% - 0pt) - first-line-start-indent: 0pt - quadding: %section-title-quadding% - keep-with-next?: #t - heading-level: (if %generate-heading-level% (+ hlevel 1) 0) - ;; SimpleSects are never AUTO numbered...they aren't hierarchical - (if (> hlevel (- max-section-level-labels 1)) - (empty-sosofo) - (if (string=? (element-label (current-node)) "") - (empty-sosofo) - (literal (element-label (current-node)) - (gentext-label-title-sep (gi sect))))) - (element-title-sosofo (current-node))) - (with-mode section-title-mode - (process-node-list subtitles)) - ($section-info$ info)))) - - ]]> - - - - (define (local-en-label-title-sep) - (list - (list (normalize "warning") ": ") - (list (normalize "caution") ": ") - (list (normalize "chapter") " ") - (list (normalize "sect1") " ") - (list (normalize "sect2") " ") - (list (normalize "sect3") " ") - (list (normalize "sect4") " ") - (list (normalize "sect5") " ") - )) - diff --git a/ru_RU.KOI8-R/share/sgml/freebsd.dsl b/ru_RU.KOI8-R/share/sgml/freebsd.dsl index 7033a6829f..87d7856605 100644 --- a/ru_RU.KOI8-R/share/sgml/freebsd.dsl +++ b/ru_RU.KOI8-R/share/sgml/freebsd.dsl @@ -1,334 +1,135 @@ %freebsd.l10n; - ]> - - + - - (define %refentry-xref-link% #t) - (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 "."))))) ]]> (element quote (make sequence (literal "''") (process-children) (literal "''"))) - - - - - - - number ;; then get the apparent level - (substring renderas 4 5)) ;; from "renderas", - (SECTLEVEL))) ;; else use the real level - (hs (HSIZE (- 4 hlevel)))) - - (make sequence - (make paragraph - font-family-name: %title-font-family% - font-weight: (if (< hlevel 5) 'bold 'medium) - font-posture: (if (< hlevel 5) 'upright 'italic) - font-size: hs - line-spacing: (* hs %line-spacing-factor%) - space-before: (* hs %head-before-factor%) - space-after: (if (node-list-empty? subtitles) - (* hs %head-after-factor%) - 0pt) - start-indent: (if (or (>= hlevel 3) - (member (gi) (list (normalize "refsynopsisdiv") - (normalize "refsect1") - (normalize "refsect2") - (normalize "refsect3")))) - %body-start-indent% - 0pt) - first-line-start-indent: 0pt - quadding: %section-title-quadding% - keep-with-next?: #t - heading-level: (if %generate-heading-level% (+ hlevel 1) 0) - ;; SimpleSects are never AUTO numbered...they aren't hierarchical - (if (> hlevel (- max-section-level-labels 1)) - (empty-sosofo) - (if (string=? (element-label (current-node)) "") - (empty-sosofo) - (literal (element-label (current-node)) - (gentext-label-title-sep (gi sect))))) - (element-title-sosofo (current-node))) - (with-mode section-title-mode - (process-node-list subtitles)) - ($section-info$ info)))) - - ]]> - - - - (define (local-en-label-title-sep) - (list - (list (normalize "warning") ": ") - (list (normalize "caution") ": ") - (list (normalize "chapter") " ") - (list (normalize "sect1") " ") - (list (normalize "sect2") " ") - (list (normalize "sect3") " ") - (list (normalize "sect4") " ") - (list (normalize "sect5") " ") - )) - (define (local-ru-label-title-sep) (list (list (normalize "warning") ": ") (list (normalize "caution") ": ") )) ;; Fix punctuation for authors list in russian localization (original ;; version is in share/sgml/docbook/dsssl/modular/common/dbcommon.dsl). (define (author-list-string #!optional (author (current-node))) (let* ((author-node-list (select-elements (descendants (ancestor (normalize "authorgroup") author)) (normalize "author"))) (corpauthor-node-list (select-elements (descendants (ancestor (normalize "authorgroup") author)) (normalize "corpauthor"))) (othercredit-node-list (select-elements (descendants (ancestor (normalize "authorgroup") author)) (normalize "othercredit"))) (editor-node-list (select-elements (descendants (ancestor (normalize "authorgroup"))) (normalize "editor"))) (author-count (if (have-ancestor? (normalize "authorgroup") author) (+ (node-list-length author-node-list) (node-list-length corpauthor-node-list) (node-list-length othercredit-node-list) (node-list-length editor-node-list)) 1)) (this-count (if (have-ancestor? (normalize "authorgroup") author) (+ (node-list-length (preced author)) 1) 1))) (string-append (author-string author) (if (> author-count 1) (if (> (- author-count this-count) 1) (gentext-listcomma) (if (= (- author-count this-count) 1) (gentext-lastlistcomma) "")) "") (if (and (> author-count 1) (not (last-sibling? author))) " " "")))) diff --git a/share/sgml/freebsd-common.dsl b/share/sgml/freebsd-common.dsl index 0222459280..3d31f5ca51 100644 --- a/share/sgml/freebsd-common.dsl +++ b/share/sgml/freebsd-common.dsl @@ -1,331 +1,346 @@ %freebsd.l10n; %freebsd.l10n-common; + + + ]> (declare-flow-object-class formatting-instruction "UNREGISTERED::James Clark//Flow Object Class::formatting-instruction") (define %section-autolabel% #t) (define %label-preface-sections% #f) (define %may-format-variablelist-as-table% #f) (define %indent-programlisting-lines% #f) (define %indent-screen-lines% #f) (define (article-titlepage-recto-elements) (list (normalize "title") (normalize "subtitle") (normalize "corpauthor") (normalize "authorgroup") (normalize "author") (normalize "releaseinfo") (normalize "copyright") (normalize "pubdate") (normalize "revhistory") (normalize "legalnotice") (normalize "abstract"))) (define %admon-graphics% ;; Use graphics in admonitions? #f) (define %admon-graphics-path% ;; Path to admonition images "./imagelib/admon/") (define ($admon-graphic$ #!optional (nd (current-node))) ;; Admonition graphic file (string-append %admon-graphics-path% (case-fold-down (gi nd)) ".png")) (define %show-all-trademark-symbols% ;; Show all the trademark symbols, not just the required ;; symbols. #f) (element chapterinfo (process-children)) (element sect1info (process-children)) (element sect2info (process-children)) (element sect3info (process-children)) (element sect4info (process-children)) (element sect5info (process-children)) (element (chapterinfo authorgroup author) (literal (author-list-string))) (element (sect1info authorgroup author) (literal (author-list-string))) (element (sect2info authorgroup author) (literal (author-list-string))) (element (sect3info authorgroup author) (literal (author-list-string))) (element (sect4info authorgroup author) (literal (author-list-string))) (element (sect5info authorgroup author) (literal (author-list-string))) (define (custom-authorgroup) ($italic-seq$ (make sequence (process-node-list (select-elements (descendants (current-node)) (normalize "contrib"))) (process-children) (literal ". ")))) (element (chapterinfo authorgroup) (custom-authorgroup)) (element (sect1info authorgroup) (custom-authorgroup)) (element (sect2info authorgroup) (custom-authorgroup)) (element (sect3info authorgroup) (custom-authorgroup)) (element (sect4info authorgroup) (custom-authorgroup)) (element (sect5info authorgroup) (custom-authorgroup)) (element sgmltag ($mono-seq$ (make sequence (literal "<") (process-children) (literal ">")))) (element errorname (make sequence ($mono-seq$ (process-children)) )) (element command ($mono-seq$)) (element envar ($mono-seq$)) (element warning ($admonition$)) (element (warning title) (empty-sosofo)) (element (warning para) ($admonpara$)) (element (warning simpara) ($admonpara$)) (element caution ($admonition$)) (element (caution title) (empty-sosofo)) (element (caution para) ($admonpara$)) (element (caution simpara) ($admonpara$)) (element hostid (if %hyphenation% (urlwrap) ($mono-seq$))) (element username ($mono-seq$)) (element groupname ($mono-seq$)) (element devicename ($mono-seq$)) (element maketarget ($mono-seq$)) (element makevar ($mono-seq$)) (define (generate-anchor #!optional (nd (current-node))) (cond ((equal? (gi nd) (normalize "question")) (string-append "Q" (question-answer-label))) (else (string-append "AEN" (number->string (all-element-number nd)))))) (define (xref-biblioentry target) (let* ((abbrev (node-list-first (node-list-filter-out-pis (children target)))) (label (attribute-string (normalize "xreflabel") target))) (if biblio-xref-title (let* ((citetitles (select-elements (descendants target) (normalize "citetitle"))) (titles (select-elements (descendants target) (normalize "title"))) (isbn (select-elements (descendants target) (normalize "isbn"))) (publisher (select-elements (descendants target) (normalize "publishername"))) (title (if (node-list-empty? citetitles) (node-list-first titles) (node-list-first citetitles)))) (with-mode xref-title-mode (make sequence (process-node-list title)))) (if biblio-number (make sequence (literal "[" (number->string (bibentry-number target)) "]")) (if label (make sequence (literal "[" label "]")) (if (equal? (gi abbrev) (normalize "abbrev")) (make sequence (process-node-list abbrev)) (make sequence (literal "[" (id target) "]")))))))) (define (can-link-here) (cond ((has-ancestor-member? (current-node) '("TITLE" "QUESTION")) #f) (#t #t))) (define (create-link attrlist target) (if (can-link-here) (make element gi: "A" attributes: attrlist target) target)) ;; Standard boolean XNOR (NOT Exclusive OR). (define (xnor x y) (or (and x y) (and (not x) (not y)))) ;; Standard boolean XOR (Exclusive OR). (define (xor x y) (not (xnor x y))) ;; Determine if a given node is in a title. (define (is-in-title? node) (has-ancestor-member? node (list (normalize "title")))) ;; Number of references to a trademark before the current ;; reference in each chunk. Trademarks in title tags, and ;; trademarks in normal text (actually just text that is not in ;; title tags) are counted separately. (define ($chunk-trademark-number$ trademark) (let* ((trademarks (select-elements (descendants (chunk-parent trademark)) (normalize "trademark")))) (let loop ((nl trademarks) (num 1)) (if (node-list-empty? nl) num (if (node-list=? (node-list-first nl) trademark) num (if (and (string=? (data trademark) (data (node-list-first nl))) (xnor (is-in-title? trademark) (is-in-title? (node-list-first nl)))) (loop (node-list-rest nl) (+ num 1)) (loop (node-list-rest nl) num))))))) ;; Determine if we should show a trademark symbol. Either in ;; first occurrence in the proper context, if the role ;; attribute is set to force, or if %show-all-trademark-symbols% ;; is set to true. (define (show-tm-symbol? trademark) (or %show-all-trademark-symbols% (= ($chunk-trademark-number$ trademark) 1) (equal? (attribute-string (normalize "role") trademark) "force"))) (element (acronym remark) (let* ((role (attribute-string (normalize "role")))) (if (not (equal? role "acronym")) ($charseq$) (empty-sosofo)))) + (define (local-en-label-title-sep) + (list + (list (normalize "warning") ": ") + (list (normalize "caution") ": ") + (list (normalize "chapter") " ") + (list (normalize "sect1") " ") + (list (normalize "sect2") " ") + (list (normalize "sect3") " ") + (list (normalize "sect4") " ") + (list (normalize "sect5") " ") + )) + diff --git a/share/sgml/freebsd-html.dsl b/share/sgml/freebsd-html.dsl index 5d9efca3b9..a2846b6dda 100644 --- a/share/sgml/freebsd-html.dsl +++ b/share/sgml/freebsd-html.dsl @@ -1,362 +1,361 @@ %freebsd.l10n; %freebsd.l10n-common; ]> (declare-flow-object-class formatting-instruction "UNREGISTERED::James Clark//Flow Object Class::formatting-instruction") (define %hyphenation% #f) (define %html-header-tags% '(("META" ("HTTP-EQUIV" "Content-Type") ("CONTENT" "text/html; charset=&doc.html.charset;")))) (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))) (define ($email-footer$) (empty-sosofo)) (define html-index-filename (if nochunks "html.index" "html-split.index")) (define %stylesheet% "docbook.css") (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 - #f) + #t) (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.0")) (("openbsd") (string-append u "&" "amp;" "manpath=OpenBSD+4.7")) (("ports") (string-append u "&" "amp;" "manpath=FreeBSD+8.1-RELEASE+and+Ports")) (else u)))) (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://www.FreeBSD.org/cgi/url.cgi") (href (string-append urlurl "?ports/" (data (current-node)) "/pkg-descr"))) (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 "<") (process-children) (literal ">")))) (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 '()) (element quote (make sequence (literal "“") (process-children) (literal "”"))) ;; 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)))) - ]]> diff --git a/share/sgml/freebsd-print.dsl b/share/sgml/freebsd-print.dsl index 230f386c2a..56af7dc066 100644 --- a/share/sgml/freebsd-print.dsl +++ b/share/sgml/freebsd-print.dsl @@ -1,456 +1,627 @@ %freebsd.l10n; %freebsd.l10n-common; ]]> ]> (declare-flow-object-class formatting-instruction "UNREGISTERED::James Clark//Flow Object Class::formatting-instruction") "))) (element filename (pathwrap)) (element varname (pathwrap)) ]]> + + (string-length url) 15) (string=? (substring url 0 16) "file://localhost")) (substring url 16 (string-length url)) url)) (element (primaryie ulink) (indexentry-link (current-node))) (element (secondaryie ulink) (indexentry-link (current-node))) (element (tertiaryie ulink) (indexentry-link (current-node))) ;; Override the count-footnote? definition from dbblock.dsl ;; to fix a bug. Basically, the original procedure would count ;; all ulink elements when doing %footnote-ulinks%. It's ;; actually harder than that, because ulink elements with no ;; content shouldn't generate footnotes (the ulink element ;; definition just inserts the url attribute in-line, thus there ;; is no need for a footnote with the url). So, when we figure ;; out which footnotes to count for the purpose of determining ;; footnote numbers, we only count the ulink elements containing ;; content. (define (count-footnote? footnote) ;; don't count footnotes in comments (unless you're showing comments) ;; or footnotes in tables which are handled locally in the table (if (or (and (has-ancestor-member? footnote (list (normalize "comment"))) (not %show-comments%)) (has-ancestor-member? footnote (list (normalize "tgroup"))) (and (has-ancestor-member? footnote (list (normalize "ulink"))) (node-list-empty? (children footnote)))) #f #t)) (element ulink (make sequence (if (node-list-empty? (children (current-node))) (literal (fix-url (attribute-string (normalize "url")))) (make sequence ($charseq$) (if %footnote-ulinks% (if (and (equal? (print-backend) 'tex) bop-footnotes) (make sequence ($ss-seq$ + (literal (footnote-number (current-node)))) (make page-footnote (make paragraph font-size: (* %footnote-size-factor% %bf-size%) font-posture: 'upright quadding: %default-quadding% line-spacing: (* (* %footnote-size-factor% %bf-size%) %line-spacing-factor%) space-before: %para-sep% space-after: %para-sep% start-indent: %footnote-field-width% first-line-start-indent: (- %footnote-field-width%) (make line-field field-width: %footnote-field-width% (literal (footnote-number (current-node)) (gentext-label-title-sep (normalize "footnote")))) (literal (fix-url (attribute-string (normalize "url"))))))) ($ss-seq$ + (literal (footnote-number (current-node))))) (if (and %show-ulinks% (not (equal? (fix-url (attribute-string (normalize "url"))) (data-of (current-node))))) (make sequence (literal " (") (if %hyphenation% (make formatting-instruction data: (string-append "\\url{" (fix-url (attribute-string (normalize "url"))) "}")) (literal (fix-url (attribute-string (normalize "url"))))) (literal ")")) (empty-sosofo))))))) (define (toc-depth nd) (if (string=? (gi nd) (normalize "book")) 3 1)) (element programlisting (if (and (equal? (attribute-string (normalize "role")) "pgpkey") (not withpgpkeys)) (empty-sosofo) (next-match))) (element legalnotice (if (equal? (attribute-string (normalize "role")) "trademarks") (make sequence (process-children)) (next-match))) (define %body-start-indent% 0pi) (define (book-titlepage-verso-elements) (list (normalize "title") (normalize "subtitle") (normalize "corpauthor") (normalize "authorgroup") (normalize "author") (normalize "editor") (normalize "edition") (normalize "pubdate") (normalize "copyright") (normalize "abstract") (normalize "legalnotice") (normalize "revhistory") (normalize "isbn"))) ;; Norm's stylesheets are smart about working out what sort of ;; object to display. But this bites us. Since we know that the ;; first item is going to be displayable, always use that. (define (find-displayable-object objlist notlist extlist) (let loop ((nl objlist)) (if (node-list-empty? nl) (empty-node-list) (let* ((objdata (node-list-filter-by-gi (children (node-list-first nl)) (list (normalize "videodata") (normalize "audiodata") (normalize "imagedata")))) (filename (data-filename objdata)) (extension (file-extension filename)) (notation (attribute-string (normalize "format") objdata))) (node-list-first nl))))) ;; When selecting a filename to use, don't append the default ;; extension, instead, just use the bare filename, and let TeX ;; work it out. jadetex will use the .eps file, while pdfjadetex ;; will use the .png file automatically. (define (graphic-file filename) (let ((ext (file-extension filename))) (if (or tex-backend ;; TeX can work this out itself (not filename) (not %graphic-default-extension%) (member ext %graphic-extensions%)) filename (string-append filename "." %graphic-default-extension%)))) ;; Including bitmaps in the PS and PDF output tends to scale them ;; horribly. The solution is to scale them down by 50%. ;; ;; You could do this with 'imagedata scale="50"' in the source, ;; but that will affect all the output formats that we use (because ;; there is only one 'imagedata' per image). ;; ;; Solution is to have the authors include the "FORMAT" attribute, ;; set to PNG or EPS as appropriate, but to omit the extension. ;; If we're using the tex-backend, and the FORMAT is PNG, and the ;; author hasn't already set a scale, then set scale to 0.5. ;; Otherwise, use the supplied scale, or 1, as appropriate. (define ($graphic$ fileref #!optional (display #f) (format #f) (scale #f) (align #f)) (let* ((graphic-format (if format format "")) (graphic-scale (if scale (/ (string->number scale) 100) (if (and tex-backend (equal? graphic-format "PNG")) 0.5 1))) (graphic-align (cond ((equal? align (normalize "center")) 'center) ((equal? align (normalize "right")) 'end) (else 'start)))) (make external-graphic entity-system-id: (graphic-file fileref) notation-system-id: graphic-format scale: graphic-scale display?: display display-alignment: graphic-align))) ;; Display TeX and LaTeX properly by sending direct formatting ;; commands to the TeX backend. (element application (if (equal? "TeX" (data (current-node))) (make formatting-instruction data: "\\TeX{}") (if (equal? "LaTeX" (data (current-node))) (make formatting-instruction data: "\\LaTeX{}") ($bold-seq$)))) ;; 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")) (literal "\copyright-sign;")) ((equal? (attribute-string "class") (normalize "registered")) (literal "\registered-sign;")) ((equal? (attribute-string "class") (normalize "service")) ($ss-seq$ + (literal "SM"))) (else (literal "\trade-mark-sign;")))) ($charseq$))) ;; Make the trademark functions think print output has chunks. (define (chunk-parent nd) (sgml-root-element nd)) + (define minimal-section-labels #f) + (define max-section-level-labels + (if minimal-section-labels 3 10)) + + (define ($section-title$) + (let* ((sect (current-node)) + (info (info-element)) + (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 sect) (normalize "title"))) + (info-titles (select-elements exp-children (normalize "title"))) + (titles (if (node-list-empty? parent-titles) + info-titles + parent-titles)) + (subtitles (select-elements exp-children (normalize "subtitle"))) + (renderas (inherited-attribute-string (normalize "renderas") sect)) + (hlevel ;; the apparent section level; + (if renderas ;; if not real section level, + (string->number ;; then get the apparent level + (substring renderas 4 5)) ;; from "renderas", + (SECTLEVEL))) ;; else use the real level + (hs (HSIZE (- 4 hlevel)))) + + (make sequence + (make paragraph + font-family-name: %title-font-family% + font-weight: (if (< hlevel 5) 'bold 'medium) + font-posture: (if (< hlevel 5) 'upright 'italic) + font-size: hs + line-spacing: (* hs %line-spacing-factor%) + space-before: (* hs %head-before-factor%) + space-after: (if (node-list-empty? subtitles) + (* hs %head-after-factor%) + 0pt) + start-indent: (if (or (>= hlevel 3) + (member (gi) (list (normalize "refsynopsisdiv") + (normalize "refsect1") + (normalize "refsect2") + (normalize "refsect3")))) + %body-start-indent% + 0pt) + first-line-start-indent: 0pt + quadding: %section-title-quadding% + keep-with-next?: #t + heading-level: (if %generate-heading-level% (+ hlevel 1) 0) + ;; SimpleSects are never AUTO numbered...they aren't hierarchical + (if (> hlevel (- max-section-level-labels 1)) + (empty-sosofo) + (if (string=? (element-label (current-node)) "") + (empty-sosofo) + (literal (element-label (current-node)) + (gentext-label-title-sep (gi sect))))) + (element-title-sosofo (current-node))) + (with-mode section-title-mode + (process-node-list subtitles)) + ($section-info$ info)))) ]]> diff --git a/zh_CN.GB2312/share/sgml/freebsd.dsl b/zh_CN.GB2312/share/sgml/freebsd.dsl index 262b30bc11..17adfb66d7 100644 --- a/zh_CN.GB2312/share/sgml/freebsd.dsl +++ b/zh_CN.GB2312/share/sgml/freebsd.dsl @@ -1,882 +1,700 @@ %freebsd.l10n; - ]> - - - (define %refentry-xref-link% #t) - (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/sgml/docbook/dsssl/modular/common/dbl1zhcn.dsl ;; еzhcn-xref-stringsΪʲôá ;; GoogleԷߴ౧Թ¡ ;; toc-entry ;; ޸ /usr/local/share/sgml/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/sgml/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/sgml/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/sgml/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/sgml/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)))))) (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))))))) ;; ҪǿIJ֣ϰֻô壬бֲĿ ;; ޸/usr/local/share/sgml/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$)))) ]]> - - - - - number ;; then get the apparent level - (substring renderas 4 5)) ;; from "renderas", - (SECTLEVEL))) ;; else use the real level - (hs (HSIZE (- 4 hlevel)))) - - (make sequence - (make paragraph - font-family-name: %title-font-family% - font-weight: (if (< hlevel 5) 'bold 'medium) - font-posture: (if (< hlevel 5) 'upright 'italic) - font-size: hs - line-spacing: (* hs %line-spacing-factor%) - space-before: (* hs %head-before-factor%) - space-after: (if (node-list-empty? subtitles) - (* hs %head-after-factor%) - 0pt) - start-indent: (if (or (>= hlevel 3) - (member (gi) (list (normalize "refsynopsisdiv") - (normalize "refsect1") - (normalize "refsect2") - (normalize "refsect3")))) - %body-start-indent% - 0pt) - first-line-start-indent: 0pt - quadding: %section-title-quadding% - keep-with-next?: #t - heading-level: (if %generate-heading-level% (+ hlevel 1) 0) - ;; SimpleSects are never AUTO numbered...they aren't hierarchical - (if (> hlevel (- max-section-level-labels 1)) - (empty-sosofo) - (if (string=? (element-label (current-node)) "") - (empty-sosofo) - (literal (element-label (current-node)) - (gentext-label-title-sep (gi sect))))) - (element-title-sosofo (current-node))) - (with-mode section-title-mode - (process-node-list subtitles)) - ($section-info$ info)))) - ;; ޸/usr/local/share/sgml/docbook/dsssl/modular/print/dbcompon.dsl ;; Id: dbcompon.dsl,v 1.5 2003/04/29 06:33:10 adicarlo Exp ;; ʹÿµıʾΪXX¡ ;; ʽ (define ($component-title$) (let* ((info (cond ((equal? (gi) (normalize "appendix")) (select-elements (children (current-node)) (normalize "docinfo"))) ((equal? (gi) (normalize "article")) (node-list-filter-by-gi (children (current-node)) (list (normalize "artheader") (normalize "articleinfo")))) ((equal? (gi) (normalize "bibliography")) (select-elements (children (current-node)) (normalize "docinfo"))) ((equal? (gi) (normalize "chapter")) (select-elements (children (current-node)) (normalize "docinfo"))) ((equal? (gi) (normalize "dedication")) (empty-node-list)) ((equal? (gi) (normalize "glossary")) (select-elements (children (current-node)) (normalize "docinfo"))) ((equal? (gi) (normalize "index")) (select-elements (children (current-node)) (normalize "docinfo"))) ((equal? (gi) (normalize "preface")) (select-elements (children (current-node)) (normalize "docinfo"))) ((equal? (gi) (normalize "reference")) (select-elements (children (current-node)) (normalize "docinfo"))) ((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 paragraph font-family-name: %title-font-family% font-weight: 'bold font-size: (HSIZE 4) line-spacing: (* (HSIZE 4) %line-spacing-factor%) space-before: (* (HSIZE 4) %head-before-factor%) start-indent: 0pt first-line-start-indent: 0pt quadding: %component-title-quadding% heading-level: (if %generate-heading-level% 1 0) keep-with-next?: #t (if (string=? (element-label) "") (empty-sosofo) (if (equal? (gi) (normalize "chapter")) (literal "" (element-label) (gentext-element-name-space (current-node)) (gentext-label-title-sep (gi)) ) (literal (gentext-element-name-space (current-node)) (element-label) (gentext-label-title-sep (gi)) ) ) ;; ifṹ ) ) (make paragraph font-family-name: %title-font-family% font-weight: 'bold font-posture: 'italic font-size: (HSIZE 6) line-spacing: (* (HSIZE 6) %line-spacing-factor%) ; space-before: (* (HSIZE 5) %head-before-factor%) start-indent: 0pt first-line-start-indent: 0pt quadding: %component-title-quadding% heading-level: (if %generate-heading-level% 1 0) keep-with-next?: #t (if (node-list-empty? titles) (element-title-sosofo) ;; get a default! (with-mode component-title-mode (make sequence (process-node-list titles)))) ) (make paragraph font-family-name: %title-font-family% font-weight: 'bold font-posture: 'italic font-size: (HSIZE 3) line-spacing: (* (HSIZE 3) %line-spacing-factor%) space-before: (* 0.5 (* (HSIZE 3) %head-before-factor%)) space-after: 1pt start-indent: 0pt first-line-start-indent: 0pt quadding: %component-subtitle-quadding% keep-with-next?: #t (with-mode component-title-mode (make sequence (process-node-list subtitles))) ) (if (equal? (gi) (normalize "index")) (empty-sosofo) (make rule length: %body-width% display-alignment: 'start space-before: 0pt space-after: 0pt line-spacing: 1pt line-thickness: 0.5pt)) ))) ;; ޸/usr/local/share/sgml/docbook/dsssl/modular/print/dbcompon.dsl ;; Id: dbcompon.dsl,v 1.5 2003/04/29 06:33:10 adicarlo Exp ;; ʹҳüʾXX¡ ;; ʽ (mode hf-mode (element title (let* ((component (ancestor-member (current-node) (component-element-list))) (chaporapp (or (equal? (gi component) (normalize "chapter")) (equal? (gi component) (normalize "appendix"))))) (if %chap-app-running-heads% (make sequence (if (and chaporapp %chapter-autolabel% (or %chap-app-running-head-autolabel% (attribute-string (normalize "label") component))) (if (equal? (gi component) (normalize "chapter")) (literal "" (element-label component) (gentext-element-name-space component) (gentext-label-title-sep (gi component))) (literal (gentext-element-name-space component) (element-label component) (gentext-label-title-sep (gi component))) ) ;; ifṹ (empty-sosofo)) (process-children-trim)) (empty-sosofo)))) (element titleabbrev (if %chap-app-running-heads% (make sequence (if (or (have-ancestor? (normalize "chapter")) (have-ancestor? (normalize "appendix"))) (if (have-ancestor? (normalize "chapter")) (literal "" (element-label (parent)) (gentext-element-name-space (parent)) (gentext-label-title-sep (gi (parent)))) (literal (gentext-element-name-space (parent)) (element-label (parent)) (gentext-label-title-sep (gi (parent)))) ) ;; ifṹ (empty-sosofo)) (process-children-trim)) (empty-sosofo))) (element refentrytitle (if %chap-app-running-heads% (process-children-trim) (empty-sosofo))) (element refdescriptor (if %chap-app-running-heads% (process-children-trim) (empty-sosofo))) (element refname (if %chap-app-running-heads% (process-children-trim) (empty-sosofo))) ;; Graphics aren't allowed in headers and footers... (element graphic (empty-sosofo)) (element inlinegraphic (empty-sosofo)) ) (define ($paragraph$) (if (or (equal? (print-backend) 'tex) (equal? (print-backend) #f)) ;; avoid using country: characteristic because of a JadeTeX bug... (make paragraph first-line-start-indent: 0pt space-before: %para-sep% space-after: (if (INLIST?) 0pt %para-sep%) quadding: %default-quadding% hyphenate?: %hyphenation% language: (dsssl-language-code) (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-trim)) (make paragraph first-line-start-indent: 0pt space-before: %para-sep% space-after: (if (INLIST?) 0pt %para-sep%) quadding: %default-quadding% hyphenate?: %hyphenation% language: (dsssl-language-code) country: (dsssl-country-code) (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-trim)))) ;; ҪǿIJ֣ϰֻô壬бֲĿ ;; ޸/usr/local/share/sgml/docbook/dsssl/modular/print/dbinline.dsl ;; Id: dbinline.dsl,v 1.7 2003/03/25 19:53:56 adicarlo Exp (element emphasis ($bold-seq$) ) ]]> (define (local-zhcn-label-title-sep) (list (list (normalize "warning") ": ") (list (normalize "caution") ": ") (list (normalize "chapter") "") (list (normalize "sect1") " ") (list (normalize "sect2") " ") (list (normalize "sect3") " ") (list (normalize "sect4") " ") (list (normalize "sect5") " ") )) (define %default-language% "zh_cn") ;; רеĿأoutput.for.print ;; ӡʽʱΪӡʽʱʹ ;; Ŀǰʹøÿصijϣ ;; 1. legalnotice.sgmlڿ֤ʾ ;; 2. freebsd.dslڿļ ;; ʵָÿصijϣ ;; share/mk/doc.local.mk Ŀprint.indexʵִкPRINTFLAGSֵ ;; share/sgml/l10n.ent ÿ ;; ָRTFе壬ǨOpenOfficeOpenOfficeʾΪ ;; Arial, Times New Roman, Courier New ĺ֡ ;; Microsoft Word (Viewer)нǿӦʹָҲͣ ;; ҲԶѰ͡ ;; /usr/local/share/sgml/docbook/dsssl/modular/print/dbparam.dsl ;; Jade/OpenJadeв"-V rtf-backend"ȵľ˿ֵ (define rtf-backend #f) (declare-initial-value font-family-name (cond (rtf-backend "AR PL New Sung") (else "Times New Roman") ) ) (define %refentry-name-font-family% (cond (rtf-backend "AR PL New Sung") (else "Courier New") ) ) (define %title-font-family% (cond (rtf-backend "AR PL New Sung") (else "Arial") ) ) (define %body-font-family% (cond (rtf-backend "AR PL New Sung") (else "Times New Roman") ) ) (define %mono-font-family% (cond (rtf-backend "AR PL New Sung") (else "Courier New") ) ) (define %admon-font-family% (cond (rtf-backend "AR PL New Sung") (else "Arial") ) ) (define %guilabel-font-family% (cond (rtf-backend "AR PL New Sung") (else "Arial") ) ) diff --git a/zh_TW.Big5/share/sgml/freebsd.dsl b/zh_TW.Big5/share/sgml/freebsd.dsl index 786be52286..8d4aa9fc3b 100644 --- a/zh_TW.Big5/share/sgml/freebsd.dsl +++ b/zh_TW.Big5/share/sgml/freebsd.dsl @@ -1,442 +1,62 @@ + - ]> - - - (define %refentry-xref-link% #t) - (define ($email-footer$) (make sequence (make element gi: "p" attributes: (list (list "align" "center")) (make element gi: "small" (literal "ΨLAiѦUG") (create-link (list (list "HREF" "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc/")) (literal "ftp://ftp.FreeBSD.org/pub/FreeBSD/doc/")) (literal "C"))) (make element gi: "p" attributes: (list (list "align" "center")) (make element gi: "small" (literal "Y FreeBSD 譱ðݡAХ\Ū ") (create-link (list (list "HREF" "http://www.FreeBSD.org/docs.html")) (literal "FreeBSD ")) (literal "ApѨMܡAA <") (create-link (list (list "HREF" "mailto:questions@FreeBSD.org")) (literal "questions@FreeBSD.org")) (literal ">C") (make empty-element gi: "br") (literal "󥻤󪺰DAЬ <") (create-link (list (list "HREF" "mailto:doc@FreeBSD.org")) (literal "doc@FreeBSD.org")) (literal ">C"))))) ;; njժADβArءABê\ŪA ;; ק /usr/local/share/sgml/docbook/dsssl/modular/html/dbinline.dsl ;; Id: dbinline.dsl,v 1.11 2004/09/14 14:47:10 petere78 Exp ;; chinsan: oq zh_CN G :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$)))) ]]> - - - - - - - - number ;; then get the apparent level - (substring renderas 4 5)) ;; from "renderas", - (SECTLEVEL))) ;; else use the real level - (hs (HSIZE (- 4 hlevel)))) - - (make sequence - (make paragraph - font-family-name: %title-font-family% - font-weight: (if (< hlevel 5) 'bold 'medium) - font-posture: (if (< hlevel 5) 'upright 'italic) - font-size: hs - line-spacing: (* hs %line-spacing-factor%) - space-before: (* hs %head-before-factor%) - space-after: (if (node-list-empty? subtitles) - (* hs %head-after-factor%) - 0pt) - start-indent: (if (or (>= hlevel 3) - (member (gi) (list (normalize "refsynopsisdiv") - (normalize "refsect1") - (normalize "refsect2") - (normalize "refsect3")))) - %body-start-indent% - 0pt) - first-line-start-indent: 0pt - quadding: %section-title-quadding% - keep-with-next?: #t - heading-level: (if %generate-heading-level% (+ hlevel 1) 0) - ;; SimpleSects are never AUTO numbered...they aren't hierarchical - (if (> hlevel (- max-section-level-labels 1)) - (empty-sosofo) - (if (string=? (element-label (current-node)) "") - (empty-sosofo) - (literal (element-label (current-node)) - (gentext-label-title-sep (gi sect))))) - (element-title-sosofo (current-node))) - (with-mode section-title-mode - (process-node-list subtitles)) - ($section-info$ info)))) - - ]]> - - - - - - - - number ;; then get the apparent level - (substring renderas 4 5)) ;; from "renderas", - (SECTLEVEL))) ;; else use the real level - (hs (HSIZE (- 4 hlevel)))) - - (make sequence - (make paragraph - font-family-name: %title-font-family% - font-weight: (if (< hlevel 5) 'bold 'medium) - font-posture: (if (< hlevel 5) 'upright 'italic) - font-size: hs - line-spacing: (* hs %line-spacing-factor%) - space-before: (* hs %head-before-factor%) - space-after: (if (node-list-empty? subtitles) - (* hs %head-after-factor%) - 0pt) - start-indent: (if (or (>= hlevel 3) - (member (gi) (list (normalize "refsynopsisdiv") - (normalize "refsect1") - (normalize "refsect2") - (normalize "refsect3")))) - %body-start-indent% - 0pt) - first-line-start-indent: 0pt - quadding: %section-title-quadding% - keep-with-next?: #t - heading-level: (if %generate-heading-level% (+ hlevel 1) 0) - ;; SimpleSects are never AUTO numbered...they aren't hierarchical - (if (> hlevel (- max-section-level-labels 1)) - (empty-sosofo) - (if (string=? (element-label (current-node)) "") - (empty-sosofo) - (literal (element-label (current-node)) - (gentext-label-title-sep (gi sect))))) - (element-title-sosofo (current-node))) - (with-mode section-title-mode - (process-node-list subtitles)) - ($section-info$ info)))) - - ]]> - - - - (define (local-en-label-title-sep) - (list - (list (normalize "warning") ": ") - (list (normalize "caution") ": ") - (list (normalize "chapter") " ") - (list (normalize "sect1") " ") - (list (normalize "sect2") " ") - (list (normalize "sect3") " ") - (list (normalize "sect4") " ") - (list (normalize "sect5") " ") - )) -