cvs: phpdoc /dsssl common.dsl.in

moriyoshi Tue Apr 29 03:06:55 2003 EDT Modified files: /phpdoc/dsssl common.dsl.in Log: Removed pointless definitions which are actually defined in docbook/common/dbl1ja.ent and docbook/common/dbl1ja.dsl. Index: phpdoc/dsssl/common.dsl.in diff -u phpdoc/dsssl/common.dsl.in:1.4 phpdoc/dsssl/common.dsl.in:1.5 --- phpdoc/dsssl/common.dsl.in:1.4 Thu Mar 14 07:07:39 2002 +++ phpdoc/dsssl/common.dsl.in Tue Apr 29 03:06:55 2003 @@ -1,6 +1,6 @@ ;; -*- Scheme -*- ;; -;; $Id: common.dsl.in,v 1.4 2002/03/14 12:07:39 hholzgra Exp $ +;; $Id: common.dsl.in,v 1.5 2003/04/29 07:06:55 moriyoshi Exp $ ;; ;; This file contains stylesheet customization common to the HTML ;; and print versions. @@ -70,31 +70,6 @@ (collect (first ls) (others ls) empty empty less?))))) ;; we return the new defined procedure impl))) - -;; definition for japanese - -(define ja-chapter-name "\U-7B2C;") -(define ja-sect1-name "\U-7B2C;") -(define ja-sect2-name "\U-7B2C;") -(define ja-section-name "\U-7B2C;") -(define ja-figure-name "Figure ") -(define ja-refsynopsisdiv-name "Synopsis") - -(define (ja-label-title-sep) - (list - (list (normalize "chapter") " \U-7AE0; ") - (list (normalize "sect1") ". ") - (list (normalize "sect2") ". ") - (list (normalize "section") ". ") - )) - -(define (gentext-ja-label-title-sep gind) - (let* ((giname (if (string? gind) gind (gi gind))) - (name (normalize giname)) - (sep (assoc name (ja-label-title-sep)))) - (if sep - (car (cdr sep)) - ""))) ;; Polish definitions