patches for the 1.07 DSSSLs

[Mark Galassi <rosalia@xxxxxxxxxx>]

Dear Norman,

Here are the patches I mentioned to you in my earlier mail; the fix
the bugs and add the features I mentioned in that same message.  I
stripped the carriage returns when I imported into my own CVS tree; I
hope that doesn't give you trouble.

*** ./html/dbinfo.dsl	Sat Apr 11 11:30:11 1998
--- /tmp/docbook-1.07-stripped/./html/dbinfo.dsl	Sat Apr 11 11:33:13 1998
***************
*** 67,77 ****
  (element (SETINFO SUBTITLE) (process-children))
  (element (SETINFO SURNAME) (process-children))
  (element (SETINFO TITLE) (process-children))
! ;;(element (SETINFO TITLEABBREV) (process-children))
! ;;
! ;; (1998-04 -- Mark Galassi) I don't think the TITLEABBREV should
! ;; appear on the title page.
! (element (SETINFO TITLEABBREV) (empty-sosofo))
  (element (SETINFO VOLUMENUM) (process-children))
  
  ;; BookInfo is handled differently in dbdivis.dsl by using a
--- 67,73 ----
  (element (SETINFO SUBTITLE) (process-children))
  (element (SETINFO SURNAME) (process-children))
  (element (SETINFO TITLE) (process-children))
! (element (SETINFO TITLEABBREV) (process-children))
  (element (SETINFO VOLUMENUM) (process-children))
  
  ;; BookInfo is handled differently in dbdivis.dsl by using a
***************
*** 125,144 ****
  (element (BOOKINFO PUBLISHER) (process-children))
  (element (BOOKINFO PUBLISHERNAME) (process-children))
  (element (BOOKINFO PUBSNUMBER) (process-children))
! (element (BOOKINFO RELEASEINFO)
!   (make paragraph
!     (process-children)))
  (element (BOOKINFO REVHISTORY) ($book-revhistory$))
  (element (BOOKINFO SERIESVOLNUMS) (process-children))
  (element (BOOKINFO SUBJECTSET) (process-children))
! ;; (element (BOOKINFO SUBTITLE) (process-children))
  (element (BOOKINFO SURNAME) (process-children))
  (element (BOOKINFO TITLE) (process-children))
! ;; (element (BOOKINFO TITLEABBREV) (process-children))
! ;;
! ;; (1998-04 -- Mark Galassi) I don't think the TITLEABBREV should
! ;; appear on the title page.
! (element (BOOKINFO TITLEABBREV) (empty-sosofo))
  (element (BOOKINFO VOLUMENUM) (process-children))
  
  (element DOCINFO (process-children))
--- 121,134 ----
  (element (BOOKINFO PUBLISHER) (process-children))
  (element (BOOKINFO PUBLISHERNAME) (process-children))
  (element (BOOKINFO PUBSNUMBER) (process-children))
! (element (BOOKINFO RELEASEINFO) (process-children))
  (element (BOOKINFO REVHISTORY) ($book-revhistory$))
  (element (BOOKINFO SERIESVOLNUMS) (process-children))
  (element (BOOKINFO SUBJECTSET) (process-children))
! (element (BOOKINFO SUBTITLE) (process-children))
  (element (BOOKINFO SURNAME) (process-children))
  (element (BOOKINFO TITLE) (process-children))
! (element (BOOKINFO TITLEABBREV) (process-children))
  (element (BOOKINFO VOLUMENUM) (process-children))
  
  (element DOCINFO (process-children))
*** ./html/dbsynop.dsl	Sat Apr 11 11:30:17 1998
--- /tmp/docbook-1.07-stripped/./html/dbsynop.dsl	Sat Apr 11 11:33:17 1998
***************
*** 73,83 ****
  (element SYNOPFRAGMENTREF ($paragraph$))
  (element SYNOPFRAGMENT (process-children))
  
! (element FUNCSYNOPSIS
!   (make sequence
!     (make element gi: "TT"
! 	  (process-children))
!     (make empty-element gi: "BR")))
  
  (element FUNCSYNOPSISINFO ($verbatim-display$ %number-funcsynopsisinfo-lines%))
  
--- 73,79 ----
  (element SYNOPFRAGMENTREF ($paragraph$))
  (element SYNOPFRAGMENT (process-children))
  
! (element FUNCSYNOPSIS (process-children))
  
  (element FUNCSYNOPSISINFO ($verbatim-display$ %number-funcsynopsisinfo-lines%))
  
***************
*** 93,101 ****
  		      (empty-sosofo)))))))
  
  (element FUNCDEF (process-children))
! (element (FUNCDEF FUNCTION)
!   (make element gi: "B"
! 	(process-children)))
  
  (element VOID 
    (if (equal? %funcsynopsis-style% 'ansi)
--- 89,95 ----
  		      (empty-sosofo)))))))
  
  (element FUNCDEF (process-children))
! (element (FUNCDEF FUNCTION) (process-children))
  
  (element VOID 
    (if (equal? %funcsynopsis-style% 'ansi)
***************
*** 118,125 ****
  	  (literal ");")))))
    
  (element (PARAMDEF PARAMETER)
!   (make element gi: "I"
! 	(process-children)))
  
  (element FUNCPARAMS 
    (make sequence 
--- 112,118 ----
  	  (literal ");")))))
    
  (element (PARAMDEF PARAMETER)
!   (process-children))
  
  (element FUNCPARAMS 
    (make sequence 
*** ./html/dbtitle.dsl	Sat Apr 11 11:30:17 1998
--- /tmp/docbook-1.07-stripped/./html/dbtitle.dsl	Sat Apr 11 11:33:18 1998
***************
*** 40,52 ****
    (element TITLE
      (process-children)))
  
- ;; (mode subtitle-mode
- ;;   (element SUBTITLE 
- ;;       (process-children)))
- ;; since there can be several subtitles for a document, they should be
- ;; created individually in this mode.
  (mode subtitle-mode
    (element SUBTITLE 
!     (make element
!       gi: "H2"
!       (process-children))))
--- 40,47 ----
    (element TITLE
      (process-children)))
  
  (mode subtitle-mode
    (element SUBTITLE 
!     (process-children)))
! 
! 
*** ./html/dbttlpg.dsl	Sat Apr 11 11:30:18 1998
--- /tmp/docbook-1.07-stripped/./html/dbttlpg.dsl	Sat Apr 11 11:33:19 1998
***************
*** 32,47 ****
  		  (make element gi: "H1"
  			(with-mode title-mode
  			  (process-node-list titles)))
! 		  ;; (make element gi: "H2"
! 		  ;; 	(with-mode subtitle-mode
! 		  ;;	  (process-node-list subtitles)))
! 		  ;;
! 		  ;; (1998/04 -- Mark Galassi) Since there can be
! 		  ;; several subtitles, the right way to do it is to
! 		  ;; make the "subtitle-mode" make the H2 elements one
! 		  ;; by one.
! 		  (with-mode subtitle-mode
! 		    (process-node-list subtitles))
  		  (with-mode titlepage-mode 
  		    (process-children))))
  	  (make element gi: "H1"
--- 32,40 ----
  		  (make element gi: "H1"
  			(with-mode title-mode
  			  (process-node-list titles)))
! 		  (make element gi: "H2"
! 			(with-mode subtitle-mode
! 			  (process-node-list subtitles)))
  		  (with-mode titlepage-mode 
  		    (process-children))))
  	  (make element gi: "H1"
***************
*** 73,86 ****
  		  (make element gi: "H1"
  			(with-mode title-mode
  			  (process-node-list titles)))
- 		  ;; (make element gi: "H2"
- 		  ;; 	(with-mode subtitle-mode
- 		  ;;	  (process-node-list subtitles)))
- 		  ;;
- 		  ;; (1998/04 -- Mark Galassi) Since there can be
- 		  ;; several subtitles, the right way to do it is to
- 		  ;; make the "subtitle-mode" make the H2 elements one
- 		  ;; by one.
  		  (make element gi: "H2"
  			(with-mode subtitle-mode
  			  (process-node-list subtitles)))
--- 66,71 ----
*** ./print/dbinfo.dsl	Sat Apr 11 11:30:24 1998
--- /tmp/docbook-1.07-stripped/./print/dbinfo.dsl	Sat Apr 11 11:33:02 1998
***************
*** 125,135 ****
  (element (BOOKINFO SUBTITLE) (process-children))
  (element (BOOKINFO SURNAME) (process-children))
  (element (BOOKINFO TITLE) (process-children))
! ;;(element (SETINFO TITLEABBREV) (process-children))
! ;;
! ;; (1998-04 -- Mark Galassi) I don't think the TITLEABBREV should
! ;; appear on the title page.
! (element (BOOKINFO TITLEABBREV) (empty-sosofo))
  (element (BOOKINFO VOLUMENUM) (process-children))
  
  (element DOCINFO (process-children))
--- 125,131 ----
  (element (BOOKINFO SUBTITLE) (process-children))
  (element (BOOKINFO SURNAME) (process-children))
  (element (BOOKINFO TITLE) (process-children))
! (element (BOOKINFO TITLEABBREV) (process-children))
  (element (BOOKINFO VOLUMENUM) (process-children))
  
  (element DOCINFO (process-children))
*** ./print/dbsynop.dsl	Sat Apr 11 11:30:29 1998
--- /tmp/docbook-1.07-stripped/./print/dbsynop.dsl	Sat Apr 11 11:33:06 1998
***************
*** 84,95 ****
  (element SYNOPFRAGMENTREF ($paragraph$))
  (element SYNOPFRAGMENT (process-children))
  
! (element FUNCSYNOPSIS
!   (make paragraph
!     font-family-name: %mono-font-family%
!     start-indent: (+ (inherited-start-indent) 3pi)
!     first-line-start-indent: -3pi
!     ($informal-object$)))
  
  (element FUNCSYNOPSISINFO ($verbatim-display$ %number-funcsynopsisinfo-lines%))
  
--- 84,90 ----
  (element SYNOPFRAGMENTREF ($paragraph$))
  (element SYNOPFRAGMENT (process-children))
  
! (element FUNCSYNOPSIS ($informal-object$))
  
  (element FUNCSYNOPSISINFO ($verbatim-display$ %number-funcsynopsisinfo-lines%))
  
***************
*** 105,111 ****
  	  (empty-sosofo)))))
  
  (element FUNCDEF (process-children))
! (element (FUNCDEF FUNCTION) ($bold-seq$))
  
  (element VOID 
    (if (equal? %funcsynopsis-style% 'ansi)
--- 100,106 ----
  	  (empty-sosofo)))))
  
  (element FUNCDEF (process-children))
! (element (FUNCDEF FUNCTION) (process-children))
  
  (element VOID 
    (if (equal? %funcsynopsis-style% 'ansi)
***************
*** 128,135 ****
  	  (literal ");")))))
    
  (element (PARAMDEF PARAMETER)
!   ($italic-seq$))
! ;;  (process-children))
  
  (element FUNCPARAMS 
    (make sequence 
--- 123,129 ----
  	  (literal ");")))))
    
  (element (PARAMDEF PARAMETER)
!   (process-children))
  
  (element FUNCPARAMS 
    (make sequence 


 DSSSList info and archive:  http://www.mulberrytech.com/dsssl/dssslist