[PHPDOC] cvs: phpdoc / pdflevels.dsl print.dsl.in From: Jouni Ahto (jah <email protected>)
Date: 06/25/00

jah Sun Jun 25 07:24:36 2000 EDT

  Modified files:
    /phpdoc pdflevels.dsl print.dsl.in
  Log:
  
  Enough good is enough good. Now just to autogenerate the manual daily and rsync
  somewhere.
  
  Check the results at http://snaps.php.net/~jah/manual.pdf.
  
  
Index: phpdoc/pdflevels.dsl
diff -u phpdoc/pdflevels.dsl:1.1 phpdoc/pdflevels.dsl:1.2
--- phpdoc/pdflevels.dsl:1.1 Sun Jun 25 04:16:13 2000
+++ phpdoc/pdflevels.dsl Sun Jun 25 07:24:36 2000
@@ -1,5 +1,5 @@
 ;;
-;; $Id: pdflevels.dsl,v 1.1 2000/06/25 11:16:13 jah Exp $
+;; $Id: pdflevels.dsl,v 1.2 2000/06/25 14:24:36 jah Exp $
 ;;
 ;; This file contains stylesheet customization to get bookmark levels
 ;; right in PDF version of manual.
@@ -136,7 +136,9 @@
 
         (if (string=? (element-label) "")
             (empty-sosofo)
- (literal (gentext-element-name-space (current-node))
+ (literal ;; (gentext-element-name-space (current-node))
+ (if (equal? (gi) (normalize "reference")) ""
+ (gentext-element-name-space (current-node)))
                      (element-label)
                      (gentext-label-title-sep (gi))))
 
@@ -171,8 +173,92 @@
     (process-children))
 )
 
+(define ($component-title$)
+ (let* ((info (cond
+;; ((equal? (gi) (normalize "appendix"))
+;; (select-elements (children (current-node)) (normalize "docinfo")))
+ ((equal? (gi) (normalize "article"))
+ (select-elements (children (current-node)) (normalize "artheader")))
+ ((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 "part"))
+ (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")))
+ (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"))))
+ (make sequence
+ (make paragraph
+ font-family-name: %title-font-family%
+ font-weight: 'bold
+ font-size: (* (HSIZE 4) 1.25)
+ 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?: #f
+
+ (if (string=? (element-label) "")
+ (empty-sosofo)
+ (literal (gentext-element-name-space (current-node))
+ (element-label)
+ (gentext-label-title-sep (gi))))
+
+ (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: (* (HSIZE 4) %head-after-factor%)
+ start-indent: 0pt
+ first-line-start-indent: 0pt
+ quadding: %component-subtitle-quadding%
+ keep-with-next?: #f
+
+ (with-mode component-title-mode
+ (make sequence
+ (process-node-list subtitles)))))))
+
+
 ;; own code
 
+(define (empty-string)
+ (literal ""))
+
 (element part ($component$))
 (element (part title) (empty-sosofo))
 
@@ -185,3 +271,6 @@
 (element appendix ($sub-component$))
 (element (appendix title) (empty-sosofo))
 
+(define %generate-part-titlepage% #t)
+(define %generate-chapter-titlepage% #t)
+(define %generate-reference-titlepage% #t)
Index: phpdoc/print.dsl.in
diff -u phpdoc/print.dsl.in:1.11 phpdoc/print.dsl.in:1.12
--- phpdoc/print.dsl.in:1.11 Sun Jun 25 04:16:13 2000
+++ phpdoc/print.dsl.in Sun Jun 25 07:24:36 2000
@@ -7,7 +7,7 @@
 
 <!--
 
- $Id: print.dsl.in,v 1.11 2000/06/25 11:16:13 jah Exp $
+ $Id: print.dsl.in,v 1.12 2000/06/25 14:24:36 jah Exp $
 
   This file contains printout-specific stylesheet customization.
 
@@ -31,7 +31,7 @@
 
 &version.dsl;
 
-;; &pdflevels.dsl;
+&pdflevels.dsl;
 
 (define ($refentry-title$)
   (let* ((refmeta (select-elements (children (current-node)) (normalize "refmeta")))
@@ -57,7 +57,7 @@
       start-indent: %body-start-indent%
       first-line-start-indent: (- %body-start-indent%)
       quadding: 'start
- heading-level: (if %generate-heading-level% 2 0)
+ heading-level: (if %generate-heading-level% 3 0)
       keep-with-next?: #t
                         (make sequence
                                 (process-node-list (children title))