%cyr1; ]> ;; $Id: dbl1ru.dsl 0.90 1997/08/18 12:38:27 nwalsh Exp $ ;; ----------------------------- Localization ----------------------------- ;; If you create a new version of this file, please send it to ;; Norman Walsh, norm@berkshire.net ;; THIS LOCALIZATION IS VERY INCOMPLETE ;; The generated text for cross references to elements. See dblink.dsl ;; for a discussion of how substitution is performed on the %x and #x ;; keywords. ;; (define (gentext-xref-strings giname) (case giname (("APPENDIX") "Приложение %n") (("CHAPTER") "Глава %n") (("EXAMPLE") "Example %n") (("FIGURE") "Figure %n") (("PART") "Part %n") (("PREFACE") "%t") (("PROCEDURE") "Procedure %n, %t") (("SECT1") (if %section-autolabel% "Section %n" "the section called %t#c")) (("SECT2") (if %section-autolabel% "Section %n" "the section called %t#c")) (("SECT3") (if %section-autolabel% "Section %n" "the section called %t#c")) (("SECT4") (if %section-autolabel% "Section %n" "the section called %t#c")) (("SECT5") (if %section-autolabel% "Section %n" "the section called %t#c")) (("STEP") "step %n#k") (("TABLE") "Таблица %n") (else (string-append "[xref to " (if giname giname "non-existant element") " unsupported]")))) ;; Indirection in the generated text for cross references. The first ;; element of the list is used for cross references across element ;; boundries, the second element is used for cross references within ;; the same element ;; (define (gentext-xref-strings-indirect key) (case key (("b") '("" "")) (("c") '(" in %cg %cn" "")) (("d") '("" "")) (("k") '(" in %kg %kn" "")) (("s") '("" "")))) ;; Should the TOC come first or last? ;; (define %generate-toc-in-front% #t) ;; gentext-element-name returns the generated text that should be ;; used to make reference to the selected element. ;; (define (gentext-element-name giname) (case giname (("ABSTRACT") "Abstract") (("APPENDIX") "Приложение") (("CAUTION") "ПРЕДОСТЕРЕЖЕНИЕ") (("CHAPTER") "Глава") (("COPYRIGHT") "Copyright") (("EXAMPLE") "Example") (("FIGURE") "Figure") (("IMPORTANT") "ВАЖНО") (("NOTE") "ЗАМЕЧАНИЕ") (("PART") "Part") (("PREFACE") "Preface") (("PROCEDURE") "Procedure") (("REFNAME") "Name") (("REVHISTORY") "Revision History") (("REVISION") "Revision") (("SECT1") "Section") (("SECT2") "Section") (("SECT3") "Section") (("SECT4") "Section") (("SECT5") "Section") (("STEP") "step") (("TABLE") "Таблица") (("TIP") "ПОДСКАЗКА") (("TOC") "СОДЕРЖАНИЕ") (("WARNING") "ПРЕДУПРЕЖДЕНИЕ") (else (string-append "UNEXPECTED-ELEMENT-NAME: " giname)))) ;; gentext-element-name-space returns gentext-element-name with a ;; trailing space, if gentext-element-name isn't "". ;; (define (gentext-element-name-space giname) (string-with-space (gentext-element-name giname))) ;; gentext-intra-label-sep returns the seperator to be inserted ;; between multiple occurances of a label (or parts of a label) ;; for the specified element. Most of these are for enumerated ;; labels like "Figure 2-4", but this function is used elsewhere ;; (e.g. REFNAME) with a little abuse. ;; (define (gentext-intra-label-sep giname) (case giname (("EXAMPLE") "-") (("FIGURE") "-") (("PROCEDURE") ".") (("REFNAME") ", ") (("REFSECT1") ".") (("REFSECT2") ".") (("REFSECT3") ".") (("SECT1") ".") (("SECT2") ".") (("SECT3") ".") (("SECT4") ".") (("SECT5") ".") (("STEP") ".") (("TABLE") "-") (("_pagenumber") "-") ;; page number psuedo element (else ""))) ;; gentext-label-title-sep returns the seperator to be inserted ;; between a label and the text following the label for the ;; specified element. Most of these are for use between ;; enumerated labels and titles like "1. Chapter One Title", but ;; this function is used elsewhere (e.g. NOTE) with a little ;; abuse. ;; (define (gentext-label-title-sep giname) (case giname (("ABSTRACT") ": ") (("APPENDIX") ". ") (("CAUTION") "") (("CHAPTER") ". ") (("EXAMPLE") ". ") (("FIGURE") ". ") (("IMPORTANT") ": ") (("NOTE") ": ") (("ORDEREDLIST") ". ") (("PART") ". ") (("PROCEDURE") ". ") (("PREFIX") ". ") (("REFSECT1") ". ") (("REFSECT2") ". ") (("REFSECT3") ". ") (("SECT1") ". ") (("SECT2") ". ") (("SECT3") ". ") (("SECT4") ". ") (("SECT5") ". ") (("STEP") ":") (("TABLE") ". ") (("TIP") ": ") (("WARNING") "") (else ""))) (define %gentext-by% "by") ;; e.g. Copyright 1997 "by" A. Nonymous ;; Authored "by" Jane Doe (define %gentext-page% "Page") (define %gentext-start-quote% (dingbat "ldquo")) (define %gentext-end-quote% (dingbat "rdquo")) (define %gentext-and% "and")