From c94df498edf3ce9d4cd0d83db7d187fe18649340 Mon Sep 17 00:00:00 2001 From: Gabor Kovesdan Date: Wed, 29 May 2013 19:21:25 +0000 Subject: - Drop SGML catalogs - Drop DSSSL stylesheets - Drop some DSSSL-related comments and Makefile code --- ru_RU.KOI8-R/share/xml/catalog | 2 - ru_RU.KOI8-R/share/xml/freebsd.dsl | 82 -------------------------------------- 2 files changed, 84 deletions(-) delete mode 100644 ru_RU.KOI8-R/share/xml/catalog delete mode 100644 ru_RU.KOI8-R/share/xml/freebsd.dsl (limited to 'ru_RU.KOI8-R/share') diff --git a/ru_RU.KOI8-R/share/xml/catalog b/ru_RU.KOI8-R/share/xml/catalog deleted file mode 100644 index 2422c1740c..0000000000 --- a/ru_RU.KOI8-R/share/xml/catalog +++ /dev/null @@ -1,2 +0,0 @@ -PUBLIC "-//FreeBSD//DOCUMENT DocBook Stylesheet//EN" - "freebsd.dsl" diff --git a/ru_RU.KOI8-R/share/xml/freebsd.dsl b/ru_RU.KOI8-R/share/xml/freebsd.dsl deleted file mode 100644 index 4ae7a0880a..0000000000 --- a/ru_RU.KOI8-R/share/xml/freebsd.dsl +++ /dev/null @@ -1,82 +0,0 @@ - - - -]> - - - - - - - (element quote - (make sequence - (literal "''") - (process-children) - (literal "''"))) - - - (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/xml/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))) - " " - "")))) - - - - - - -- cgit v1.3