Members/kono/nitros9-code: docs/os9sysprog/docbook-utils.dsl annotate

annotate docs/os9sysprog/docbook-utils.dsl @ 34:f2d338984847

Finished all the I/O system calls.

author	roug
date	Tue, 09 Apr 2002 21:18:38 +0000
parents	b304b9aab9f0
children

rev	line source
17 b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	2 <!ENTITY % html "IGNORE">
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	3 <![%html;[
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	4 <!ENTITY % print "IGNORE">
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	5 <!ENTITY docbook.dsl PUBLIC "-//Norman Walsh//DOCUMENT DocBook HTML Stylesheet//EN" CDATA dsssl>
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	6 ]]>
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	7 <!ENTITY % print "INCLUDE">
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	8 <![%print;[
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	9 <!ENTITY docbook.dsl PUBLIC "-//Norman Walsh//DOCUMENT DocBook Print Stylesheet//EN" CDATA dsssl>
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	10 ]]>
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	11 ]>
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	12
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	13 <!--
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	14 ;;#######################################################################
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	15 ;;# #
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	16 ;;# The GNOME Documentation Project's #
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	17 ;;# Custion DocBook Stylesheet Layer #
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	18 ;;# by Dave Mason dcm@redhat.com #
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	19 ;;# Based on Norman Walsh's Modular Stylesheets #
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	20 ;;# #
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	21 ;;# This is intended as a drop-in replacement for #
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	22 ;;# the cygnus-both.dsl file in DocBook Tools. #
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	23 ;;# Just copy it to the location dbtools created #
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	24 ;;# and rename it cygnus-both.dsl #
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	25 ;;# #
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	26 ;;# This is Version 1.0-4 #
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	27 ;;#######################################################################
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	28 -->
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	29
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	30 <style-sheet>
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	31
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	32
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	33 <style-specification id="print" use="docbook">
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	34 <style-specification-body>
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	35
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	36 ;;==========================================================================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	37 ;; PRINT
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	38 ;;==========================================================================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	39
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	40 ;;======================================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	41 ;;General Options
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	42 ;;======================================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	43
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	44 ;;Do you want to print on both sides of the paper?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	45 (define %two-side%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	46 #t)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	47
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	48 ;;Do you want enumerated sections? (E.g, 1.1, 1.1.1, 1.2, etc.)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	49 (define %section-autolabel%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	50 #t)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	51
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	52 ;;What is the default extension for graphics?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	53 (define %graphic-default-extension%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	54 "eps")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	55
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	56 ;;Show URL links? If the text of the link and the URL are identical,
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	57 ;;the parenthetical URL is suppressed.
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	58 (define %show-ulinks%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	59 #t)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	60
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	61 ;Make Ulinks footnotes to stop bleeding in the edges - this increases
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	62 ;'jade --> print' time tremendously keep this in mind before
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	63 ;complaining!
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	64 (define %footnote-ulinks%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	65 #t)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	66
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	67 ;;Tex Backend on
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	68 (define tex-backend
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	69 #t)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	70
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	71 ;;Define Line Spacing
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	72 (define %line-spacing-factor% 1.1)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	73
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	74 ;;Define the Paragraph Style
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	75 (define para-style
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	76 (style
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	77 font-size: %bf-size%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	78 font-weight: 'medium
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	79 font-posture: 'upright
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	80 font-family-name: %body-font-family%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	81 line-spacing: (* %bf-size% %line-spacing-factor%)))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	82
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	83 (define ($object-titles-after$)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	84 (list (normalize "figure")))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	85
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	86 ;;======================================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	87 ;;Book Options
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	88 ;;======================================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	89
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	90
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	91 ;;Do you want a title page for a Book?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	92 (define %generate-book-titlepage%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	93 #t)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	94
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	95 ;;Do you want a separate page for the title?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	96 (define %generate-book-titlepage-on-separate-page%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	97 #f)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	98
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	99 ;;Generate Book TOC?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	100 (define %generate-book-toc%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	101 #t)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	102
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	103 ;;What depth should the TOC generate?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	104 ;;!Only top level of appendixes!
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	105 (define (toc-depth nd)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	106 (if (string=? (gi nd) (normalize "book"))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	107 2
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	108 (if (string=? (gi nd) (normalize "appendix"))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	109 0
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	110 1)))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	111
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	112 ;;Do you want a TOC for the element part?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	113 (define %generate-part-toc%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	114 #f)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	115
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	116 ;;Do you want the part toc on the part titlepage or separate?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	117 (define %generate-part-toc-on-titlepage%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	118 #t)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	119
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	120 ;;Generate Part Title Page?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	121 (define %generate-part-titlepage%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	122 #f)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	123
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	124 ;;Do you want the Part intro on the part title page?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	125 (define %generate-partintro-on-titlepage%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	126 #t)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	127
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	128 ;;What elements should have a LOT?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	129 (define ($generate-book-lot-list$)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	130 (list (normalize "equation")))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	131
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	132 ;;Do you want chapters enumerated?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	133 (define %chapter-autolabel%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	134 #t)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	135
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	136 ;;Do you want Chapter's and Appendix's
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	137 ;;to have automatic labels?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	138 (define %chap-app-running-head-autolabel%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	139 #t)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	140
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	141
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	142 ;;======================================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	143 ;;Article Options
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	144 ;;======================================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	145
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	146 ;;Do you want a title page for an Article?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	147 (define %generate-article-titlepage%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	148 #t)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	149
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	150 ;;Generate Article TOC?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	151 (define %generate-article-toc%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	152 #t)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	153
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	154 ;;Do you want a separate page for the title?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	155 (define %generate-article-titlepage-on-separate-page%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	156 #t)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	157
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	158 ;;Do you want the article toc on the titlepage or separate?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	159 (define %generate-article-toc-on-titlepage%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	160 #t)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	161
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	162 ;;Do you want to start new page numbers with each article?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	163 (define %article-page-number-restart%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	164 #f)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	165
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	166 ;;Titlepage Separate?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	167 (define (chunk-skip-first-element-list)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	168 '())
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	169
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	170 ;;Titlepage Not Separate
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	171 ;(define (chunk-skip-first-element-list)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	172 ; (list (normalize "sect1")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	173 ; (normalize "section")))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	174
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	175 ;;======================================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	176 ;;Columns
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	177 ;;======================================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	178
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	179 ;;How many columns do you want?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	180 (define %page-n-columns%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	181 1)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	182
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	183 ;;How much space between columns?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	184 (define %page-column-sep%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	185 0.2in)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	186
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	187 ;;How many Columns on the titlepage?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	188 (define %titlepage-n-columns%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	189 1)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	190
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	191 ;;Balance columns?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	192 (define %page-balance-colums%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	193 #t)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	194
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	195 ;;======================================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	196 ;;Fonts
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	197 ;;======================================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	198
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	199 ;;Defines the general size of the text in the document. normal(10),
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	200 ;;presbyopic(12), and large-type(24).
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	201 (define %visual-acuity%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	202 "normal")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	203
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	204 ;;What font would you like for titles?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	205 (define %title-font-family%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	206 "Helvetica")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	207
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	208 ;;What font would you like for the body?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	209 (define %body-font-family%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	210 "Palatino")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	211
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	212 ;;What font would you like for mono-seq?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	213 (define %mono-font-family%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	214 "Courier New")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	215
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	216 ;;If the base fontsize is 10pt, and '%hsize-bump-factor%' is
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	217 ;; 1.2, hsize 1 is 12pt, hsize 2 is 14.4pt, hsize 3 is 17.28pt, etc
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	218 (define %hsize-bump-factor%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	219 1.1)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	220
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	221 ;;What size do you want the body fonts?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	222 (define %bf-size%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	223 (case %visual-acuity%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	224 (("tiny") 8pt)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	225 (("normal") 10pt)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	226 (("presbyopic") 12pt)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	227 (("large-type") 24pt)))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	228
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	229 (define-unit em %bf-size%)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	230
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	231 ;;======================================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	232 ;;Margins
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	233 ;;======================================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	234
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	235 (define %left-right-margin% 6pi)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	236
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	237 ;;How much indentation for the body?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	238 (define %body-start-indent%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	239 4pi)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	240
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	241 ;;How big is the left margin? (relative to physical page)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	242 (define %left-margin%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	243 8pi) ;white-paper-column
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	244
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	245 ;;How big is the right margin? (relative to physical page)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	246 (define %right-margin%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	247 8pi) ;white-paper-column
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	248
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	249 ;;How big do you want the margin at the top?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	250 (define %top-margin%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	251 (if (equal? %visual-acuity% "large-type")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	252 7.5pi
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	253 4pi))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	254
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	255 ;;How big do you want the margin at the bottom?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	256 (define %bottom-margin%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	257 (if (equal? %visual-acuity% "large-type")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	258 7.5pi
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	259 2pi))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	260
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	261 ;;Define the text width. (Change the elements in the formula rather
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	262 ;;than the formula itself)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	263 ;(define %text-width% (- %page-width% (* %left-right-margin% 2)))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	264 (define %text-width% (- %page-width% (+ %left-margin% %right-margin%)))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	265
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	266 ;;Define the body width. (Change the elements in the formula rather
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	267 ;;than the formula itself)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	268 (define %body-width%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	269 (- %text-width% %body-start-indent%))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	270
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	271 ;;Define distance between paragraphs
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	272 (define %para-sep%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	273 (/ %bf-size% 2.0))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	274
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	275 ;;Define distance between block elements (figures, tables, etc.).
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	276 (define %block-sep%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	277 (* %para-sep% 2.0))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	278
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	279 ;;Indent block elements?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	280 (define %block-start-indent%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	281 0pt)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	282 ;0pt
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	283
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	284 ;;======================================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	285 ;;Admon Graphics
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	286 ;;======================================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	287
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	288 ;;Do you want admon graohics on?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	289 (define %admon-graphics%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	290 #f)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	291
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	292 ;;Where are the admon graphics?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	293 (define %admon-graphics-path%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	294 "../images/")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	295
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	296 ;;======================================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	297 ;;Quadding
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	298 ;;======================================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	299
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	300 ;;What quadding do you want by default; start, center, justify, or end?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	301 (define %default-quadding%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	302 'justify)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	303
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	304 ;;What quadding for component titles(Chapter, Appendix, etc)?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	305 (define %component-title-quadding%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	306 'start)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	307
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	308 ;;What quadding for section titles?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	309 (define %section-title-quadding%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	310 'start)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	311
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	312 ;;What quadding for section sub-titles?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	313 (define %section-subtitle-quadding%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	314 'start)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	315
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	316 ;;What quadding for article title?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	317 (define %article-title-quadding%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	318 'center)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	319
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	320 ;;What quadding for article sub-titles?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	321 (define %article-subtitle-quadding%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	322 'center)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	323
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	324 ;;What quadding for division subtitles?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	325 (define %division-subtitle-quadding%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	326 'start)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	327
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	328 ;;What quadding for component subtitles?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	329 (define %component-subtitle-quadding%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	330 'start)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	331
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	332
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	333
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	334
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	335 ;;======================================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	336 ;;Paper Options
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	337 ;;======================================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	338
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	339 ;;What size paper do you need? A4, USletter, USlandscape, or RedHat?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	340 (define %paper-type%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	341 "A4")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	342
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	343 ;;Now define those paper types' width
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	344 (define %page-width%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	345 (case %paper-type%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	346 (("A4") 210mm)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	347 (("USletter") 8.5in)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	348 (("USlandscape") 11in)))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	349
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	350 ;;Now define those paper types' height
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	351 (define %page-height%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	352 (case %paper-type%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	353 (("A4") 297mm)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	354 (("USletter") 11in)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	355 (("USlandscape") 8.5in)))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	356
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	357 ;;======================================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	358 ;;Functions
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	359 ;;======================================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	360
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	361 (define (OLSTEP)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	362 (case
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	363 (modulo (length (hierarchical-number-recursive "ORDEREDLIST")) 4)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	364 ((1) 1.2em)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	365 ((2) 1.2em)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	366 ((3) 1.6em)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	367 ((0) 1.4em)))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	368
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	369 (define (ILSTEP) 1.0em)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	370
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	371 (define (PROCSTEP ilvl)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	372 (if (> ilvl 1) 1.8em 1.4em))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	373
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	374 (define (PROCWID ilvl)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	375 (if (> ilvl 1) 1.8em 1.4em))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	376
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	377
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	378 (define ($comptitle$)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	379 (make paragraph
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	380 font-family-name: %title-font-family%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	381 font-weight: 'bold
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	382 font-size: (HSIZE 2)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	383 line-spacing: (* (HSIZE 2) %line-spacing-factor%)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	384 space-before: (* (HSIZE 2) %head-before-factor%)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	385 space-after: (* (HSIZE 2) %head-after-factor%)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	386 start-indent: 0pt
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	387 first-line-start-indent: 0pt
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	388 quadding: 'start
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	389 keep-with-next?: #t
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	390 (process-children-trim)))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	391
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	392 ;;Callouts are confusing in Postscript... fix them.
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	393 (define %callout-fancy-bug%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	394 #f)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	395
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	396
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	397 ;;By default perils are centered and dropped into a box with a really
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	398 ;;big border - I have simply decreased the border thickness -
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	399 ;;unfortunately it takes all this to do it - sigh.
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	400 (define ($peril$)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	401 (let* ((title (select-elements
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	402 (children (current-node)) (normalize "title")))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	403 (has-title (not (node-list-empty? title)))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	404 (adm-title (if has-title
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	405 (make sequence
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	406 (with-mode title-sosofo-mode
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	407 (process-node-list (node-list-first title))))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	408 (literal
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	409 (gentext-element-name
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	410 (current-node)))))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	411 (hs (HSIZE 2)))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	412 (if %admon-graphics%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	413 ($graphical-admonition$)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	414 (make display-group
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	415 space-before: %block-sep%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	416 space-after: %block-sep%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	417 font-family-name: %admon-font-family%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	418 font-size: (- %bf-size% 1pt)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	419 font-weight: 'medium
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	420 font-posture: 'upright
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	421 line-spacing: (* (- %bf-size% 1pt) %line-spacing-factor%)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	422 (make box
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	423 display?: #t
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	424 box-type: 'border
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	425 line-thickness: .5pt
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	426 start-indent: (+ (inherited-start-indent) (* 2 (ILSTEP)) 2pt)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	427 end-indent: (inherited-end-indent)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	428 (make paragraph
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	429 space-before: %para-sep%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	430 space-after: %para-sep%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	431 start-indent: 1em
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	432 end-indent: 1em
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	433 font-family-name: %title-font-family%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	434 font-weight: 'bold
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	435 font-size: hs
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	436 line-spacing: (* hs %line-spacing-factor%)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	437 quadding: 'center
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	438 keep-with-next?: #t
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	439 adm-title)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	440 (process-children))))))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	441
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	442
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	443 ;;======================================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	444 ;;Non-printing Elements
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	445 ;;======================================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	446 (element TITLEABBREV (empty-sosofo))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	447 (element SUBTITLE (empty-sosofo))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	448 (element SETINFO (empty-sosofo))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	449 (element BOOKINFO (empty-sosofo))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	450 (element BIBLIOENTRY (empty-sosofo))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	451 (element BIBLIOMISC (empty-sosofo))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	452 (element BOOKBIBLIO (empty-sosofo))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	453 (element SERIESINFO (empty-sosofo))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	454 (element DOCINFO (empty-sosofo))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	455 (element ARTHEADER (empty-sosofo))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	456 (element ADDRESS (empty-sosofo))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	457
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	458 ;;Show comment element?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	459 (define %show-comments%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	460 #t)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	461
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	462 ;;Redefine comment for LSB
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	463 (element comment
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	464 (if %show-comments%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	465 (make paragraph
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	466 start-indent: 0pt
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	467 first-line-start-indent: -10pt
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	468 font-posture: 'italic
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	469 font-size: (* (inherited-font-size) 0.9)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	470 (make sequence
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	471 (make line-field
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	472 field-width: 10pt
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	473 quadding: 'center
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	474 (literal "BEGIN RATIONALE: "))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	475 (process-children))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	476 (literal "END RATIONALE: "))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	477 (empty-sosofo)))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	478
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	479 ;; In DocBook V4.0 comment became remark
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	480 (element remark
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	481 (if %show-comments%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	482 (make paragraph
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	483 start-indent: 0pt
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	484 first-line-start-indent: -10pt
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	485 font-posture: 'italic
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	486 font-size: (* (inherited-font-size) 0.9)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	487 (make sequence
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	488 (make line-field
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	489 field-width: 10pt
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	490 quadding: 'center
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	491 (literal "BEGIN RATIONALE: "))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	492 (process-children))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	493 (literal "END RATIONALE: "))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	494 (empty-sosofo)))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	495
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	496 ;;======================================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	497 ;;Formalpara titles
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	498 ;;======================================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	499
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	500
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	501 ;;Change the way Formal Paragraph titles are displayed. The commented
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	502 ;;out section will run the titles in the paragraphs.
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	503 (element (formalpara title)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	504 ;(make sequence
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	505 ;font-weight: 'bold
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	506 ;($runinhead$))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	507 ($lowtitle$ 5))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	508
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	509 ;;======================================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	510 ;;Inlines
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	511 ;;======================================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	512
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	513 (element application ($mono-seq$))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	514 (element command ($bold-seq$))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	515 (element filename ($mono-seq$))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	516 (element function ($mono-seq$))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	517 (element guibutton ($bold-seq$))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	518 (element guiicon ($bold-seq$))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	519 (element guilabel ($italic-seq$))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	520 (element guimenu ($bold-seq$))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	521 (element guimenuitem ($bold-seq$))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	522 (element hardware ($bold-mono-seq$))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	523 (element keycap ($bold-seq$))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	524 (element literal ($mono-seq$))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	525 (element parameter ($italic-mono-seq$))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	526 (element prompt ($mono-seq$))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	527 (element symbol ($charseq$))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	528 (element emphasis ($italic-seq$))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	529
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	530 </style-specification-body>
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	531 </style-specification>
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	532
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	533
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	534 <!--
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	535 ;;===========================================================================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	536 ;; HTML
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	537 ;;===========================================================================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	538 -->
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	539
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	540 <style-specification id="html" use="docbook">
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	541 <style-specification-body>
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	542
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	543 ;; this is necessary because right now jadetex does not understand
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	544 ;; symbolic entities, whereas things work well with numeric entities.
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	545 (declare-characteristic preserve-sdata?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	546 "UNREGISTERED::James Clark//Characteristic::preserve-sdata?"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	547 #f)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	548
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	549
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	550 ;;=========================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	551 ;;Header HTML 4.0.1
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	552 ;;=========================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	553
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	554 (define %html-pubid% "-//W3C//DTD HTML 4.01//EN")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	555
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	556 ;;=========================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	557 ;;Common Stuff
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	558 ;;=========================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	559
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	560 ;;Should there be a link to the legalnotice?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	561 (define %generate-legalnotice-link%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	562 #t)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	563
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	564 ;;What graphics extensions allowed?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	565 (define %graphic-extensions%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	566 '("gif" "png" "jpg" "jpeg" "tif" "tiff" "eps" "epsf" ))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	567
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	568 ;;What is the default extension for images?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	569 (define %graphic-default-extension% "png")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	570
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	571 ;;Use element ids as filenames?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	572 (define %use-id-as-filename%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	573 #t)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	574
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	575
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	576 ;;=========================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	577 ;;Book Stuff
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	578 ;;=========================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	579
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	580 ;;Do you want a TOC for Books?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	581 (define %generate-book-toc%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	582 #t)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	583
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	584 ;;What depth should the TOC generate?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	585 ;;!Only top level of appendixes!
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	586 (define (toc-depth nd)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	587 (if (string=? (gi nd) (normalize "book"))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	588 3
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	589 (if (string=? (gi nd) (normalize "appendix"))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	590 0
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	591 1)))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	592
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	593 ;;What elements should have an LOT?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	594 (define ($generate-book-lot-list$)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	595 (list (normalize "equation")))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	596
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	597 ;;Do you want a title page for your Book?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	598 (define %generate-book-titlepage%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	599 #t)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	600
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	601 ;;=========================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	602 ;;Part Stuff
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	603 ;;=========================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	604
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	605 ;;Should parts have TOCs?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	606 (define %generate-part-toc%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	607 #t)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	608
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	609 ;;Should part TOCs be on their titlepages?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	610 (define %generate-part-toc-on-titlepage%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	611 #t)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	612
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	613 ;;Do you want a title page for your part?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	614 (define %generate-part-titlepage%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	615 #t)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	616
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	617 ;;Should the Part intro be on the part title page?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	618 (define %generate-partintro-on-titlepage%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	619 #t)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	620
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	621 (define %para-autolabel%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	622 #t)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	623
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	624 ;;========================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	625 ;;Chapter Stuff
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	626 ;;=======================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	627
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	628 ;;No TOCs in Chapters
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	629 (define $generate-chapter-toc$
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	630 (lambda ()
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	631 #f))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	632
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	633 ;;=========================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	634 ;;Navigation
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	635 ;;=========================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	636
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	637 ;;Should there be navigation at top?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	638 (define %header-navigation%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	639 #t)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	640
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	641 ;;Should there be navigation at bottom?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	642 (define %footer-navigation%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	643 #t)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	644
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	645 ;;Use tables to create the navigation?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	646 (define %gentext-nav-use-tables%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	647 #t)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	648
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	649 ;;If tables are used for navigation,
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	650 ;;how wide should they be?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	651 (define %gentext-nav-tblwidth%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	652 "100%")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	653
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	654 ;;Add arrows to navigation (comment these
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	655 ;;out if you want admon graphics here)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	656 (define (gentext-en-nav-prev prev)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	657 (make sequence (literal "<<< Previous")))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	658
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	659 ;;Add arrows to navigation (comment these
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	660 ;;out if you want admon graphics here)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	661 (define (gentext-en-nav-next next)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	662 (make sequence (literal "Next >>>")))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	663
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	664
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	665 ;;=========================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	666 ;;Tables and Lists
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	667 ;;=========================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	668
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	669 ;;Should Variable lists be tables?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	670 (define %always-format-variablelist-as-table%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	671 #f)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	672
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	673 ;;What is the length of the 'Term' in a variablelist?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	674 (define %default-variablelist-termlength%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	675 20)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	676
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	677 ;;When true \| If the terms are shorter than
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	678 ;;the termlength above then the variablelist
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	679 ;;will be formatted as a table.
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	680 (define %may-format-variablelist-as-table%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	681 #f)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	682
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	683 ;;This overrides the tgroup definition
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	684 ;;(copied from 1.20, dbtable.dsl).
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	685 ;;It changes the table background color,
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	686 ;;cell spacing and cell padding.
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	687 ;;This is based on gtk-doc additions - thanks!
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	688
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	689 (element tgroup
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	690 (let* ((wrapper (parent (current-node)))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	691 (frameattr (attribute-string (normalize "frame") wrapper))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	692 (pgwide (attribute-string (normalize "pgwide") wrapper))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	693 (footnotes (select-elements (descendants (current-node))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	694 (normalize "footnote")))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	695 (border (if (equal? frameattr (normalize "none"))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	696 '(("BORDER" "0"))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	697 '(("BORDER" "1"))))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	698 (bgcolor '(("BGCOLOR" "#E0E0E0")))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	699 (width (if (equal? pgwide "1")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	700 (list (list "WIDTH" ($table-width$)))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	701 '()))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	702 (head (select-elements (children (current-node)) (normalize "thead")))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	703 (body (select-elements (children (current-node)) (normalize "tbody")))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	704 (feet (select-elements (children (current-node)) (normalize "tfoot"))))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	705 (make element gi: "TABLE"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	706 attributes: (append
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	707 border
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	708 width
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	709 bgcolor
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	710 '(("CELLSPACING" "0"))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	711 '(("CELLPADDING" "4"))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	712 (if %cals-table-class%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	713 (list (list "CLASS" %cals-table-class%))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	714 '()))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	715 (process-node-list head)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	716 (process-node-list body)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	717 (process-node-list feet)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	718 (make-table-endnotes))))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	719
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	720 ;;===================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	721 ;; Admon Graphics
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	722 ;;===================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	723
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	724 ;;Should Admon Graphics be used?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	725 (define %admon-graphics%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	726 #t)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	727
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	728 ;;Where are those admon graphics?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	729 (define %admon-graphics-path%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	730 "./stylesheet-images/")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	731
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	732 ;;Given an admonition node, returns the
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	733 ;;name of the graphic that should
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	734 ;;be used for that admonition.
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	735 ;;Define admon graphics usage
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	736 ;;NOTE these will change to pngs
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	737 ;;soon in the GDP when Tigert gets
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	738 ;;the time to make special ones for us!
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	739 (define ($admon-graphic$ #!optional (nd (current-node)))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	740 (cond ((equal? (gi nd) (normalize "tip"))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	741 (string-append %admon-graphics-path% "tip.gif"))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	742 ((equal? (gi nd) (normalize "note"))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	743 (string-append %admon-graphics-path% "note.gif"))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	744 ((equal? (gi nd) (normalize "important"))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	745 (string-append %admon-graphics-path% "important.gif"))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	746 ((equal? (gi nd) (normalize "caution"))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	747 (string-append %admon-graphics-path% "caution.gif"))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	748 ((equal? (gi nd) (normalize "warning"))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	749 (string-append %admon-graphics-path% "warning.gif"))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	750 (else (error (string-append (gi nd) " is not an admonition.")))))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	751
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	752 ;;Given an admonition node, returns
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	753 ;;the width of the graphic that will
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	754 ;;be used for that admonition.
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	755 (define ($admon-graphic-width$ #!optional (nd (current-node)))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	756 "25")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	757
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	758 ;;=========================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	759 ;;Labels
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	760 ;;=========================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	761
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	762 ;;Enumerate Chapters?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	763 (define %chapter-autolabel%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	764 #f)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	765
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	766 ;;Enumerate Sections?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	767 (define %section-autolabel%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	768 #t)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	769
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	770 ;;=========================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	771 ;; HTML Attributes
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	772 ;;=========================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	773
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	774 ;;What attributes should be hung off
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	775 ;;of 'body'?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	776 (define %body-attr%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	777 (list
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	778 (list "BGCOLOR" "#FFFFFF")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	779 (list "TEXT" "#000000")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	780 (list "LINK" "#0000FF")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	781 (list "VLINK" "#840084")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	782 (list "ALINK" "#0000FF")))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	783
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	784 ;;Default extension for filenames?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	785 (define %html-ext%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	786 ".html")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	787
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	788 ;;Use a CSS stylesheet?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	789 ;;Which one? Should work on
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	790 ;;this one soon
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	791 ;(define %stylesheet%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	792 ; "./gnome.css")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	793
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	794 ;;Use it
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	795 ;(define %stylesheet-type%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	796 ;"text/css")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	797
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	798
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	799 ;;========================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	800 ;;Title Pages for Books
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	801 ;;=======================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	802
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	803 (define (book-titlepage-recto-elements)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	804 (list (normalize "title")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	805 (normalize "subtitle")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	806 (normalize "corpauthor")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	807 (normalize "authorgroup")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	808 (normalize "author")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	809 (normalize "orgname")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	810 (normalize "graphic")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	811 (normalize "copyright")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	812 (normalize "legalnotice")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	813 (normalize "releaseinfo")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	814 (normalize "publisher")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	815 (normalize "isbn")))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	816
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	817 ;;========================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	818 ;;Title Pages for Articles
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	819 ;;========================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	820
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	821 ;;Should Articles have a TOC?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	822 (define %generate-article-toc%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	823 #t)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	824
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	825 ;;Which elements should appear
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	826 ;;on title page?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	827 (define (article-titlepage-recto-elements)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	828 (list (normalize "title")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	829 (normalize "subtitle")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	830 (normalize "authorgroup")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	831 (normalize "copyright")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	832 (normalize "legalnotice")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	833 (normalize "abstract")))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	834
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	835 ;;How should elements on title page look?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	836 (mode article-titlepage-recto-mode
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	837
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	838 ;;Author name is too big - change it!
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	839 (element author
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	840 (let ((author-name (author-string))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	841 (author-affil (select-elements (children (current-node))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	842 (normalize "affiliation"))))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	843 (make sequence
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	844 (make element gi: "H4"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	845 attributes: (list (list "CLASS" (gi)))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	846 (make element gi: "A"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	847 attributes: (list (list "NAME" (element-id)))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	848 (literal author-name)))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	849 (process-node-list author-affil))))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	850
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	851 ;;Address?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	852 (element address
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	853 (make sequence
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	854 (make element gi: "DIV"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	855 attributes: (list (list "CLASS" (gi)))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	856 (process-children))))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	857
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	858 ;;Get rid of spam-producing "mailto" links
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	859 ;;and get rid of email indentation
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	860 (element email
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	861 (make sequence
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	862 (make element gi: "DIV"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	863 attributes: (list (list "CLASS" (gi)))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	864 (process-children))))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	865
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	866 ;;Point Abstract to custom table function
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	867 ;;(See $dcm-abstract-object$ below. For default
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	868 ;;use $semiformal-object$
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	869 (element abstract
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	870 (make element gi: "DIV"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	871 ($dcm-abstract-object$)))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	872
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	873 (element (abstract title) (empty-sosofo))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	874
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	875 ;;subtitle sizing
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	876 (element subtitle
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	877 (make element gi: "H4"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	878 attributes: (list (list "CLASS" (gi)))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	879 (process-children-trim))))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	880
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	881 ;;=================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	882 ;; INLINES
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	883 ;;=================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	884
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	885 ;Define my own series of fonts for various elements
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	886 (element application ($mono-seq$))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	887 (element command ($bold-seq$))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	888 (element filename ($mono-seq$))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	889 (element function ($mono-seq$))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	890 (element guibutton ($bold-seq$))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	891 (element guiicon ($bold-seq$))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	892 (element guilabel ($bold-mono-seq$))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	893 (element guimenu ($bold-seq$))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	894 (element guimenuitem ($bold-seq$))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	895 (element guisubmenu ($bold-seq$))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	896 (element hardware ($bold-mono-seq$))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	897 (element keycap ($bold-seq$))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	898 (element literal ($mono-seq$))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	899 (element parameter ($italic-mono-seq$))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	900 (element prompt ($mono-seq$))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	901 (element symbol ($charseq$))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	902 (element emphasis ($italic-seq$))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	903
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	904 ;;Show comment element?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	905 (define %show-comments%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	906 #t)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	907
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	908 ;;Redefine comment element for LSB
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	909 (element comment
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	910 (if %show-comments%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	911 (make element gi: "TABLE"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	912 attributes: ($shade-verbatim-attr$)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	913 (make element gi: "TR"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	914 (make element gi: "TD"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	915 (literal "RATIONALE:")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	916 (make element gi: "P"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	917 (process-children)))))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	918 (empty-sosofo)))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	919
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	920 ;;In DocBook V4.0 comment became remark
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	921 (element remark
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	922 (if %show-comments%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	923 (make element gi: "TABLE"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	924 attributes: ($shade-verbatim-attr$)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	925 (make element gi: "TR"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	926 (make element gi: "TD"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	927 (literal "RATIONALE:")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	928 (make element gi: "P"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	929 (process-children)))))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	930 (empty-sosofo)))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	931
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	932 ;;====================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	933 ;; General Formatting
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	934 ;;====================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	935
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	936 ;;Formal Paras are ugly by default!
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	937 ;;Make the title run in - otherwise
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	938 ;;you should use a sect!
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	939 (element formalpara
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	940 (make element gi: "DIV"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	941 attributes: (list
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	942 (list "CLASS" (gi)))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	943 (make element gi: "P"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	944 (process-children))))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	945
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	946 ;;This is the old one
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	947 ;(element (formalpara title)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	948 ;($lowtitle$ 5))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	949
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	950 ;;This is the new one
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	951 (element (formalpara title)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	952 (make element gi: "B"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	953 ($runinhead$)))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	954
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	955 ;;Make captions come after objects in the list
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	956 (define ($object-titles-after$)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	957 (list (normalize "figure")))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	958
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	959
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	960 ;; Handle qanda labelling with Q: A:
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	961 (define (qanda-defaultlabel)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	962 (normalize "qanda"))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	963
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	964 ;;From FreeBSD Sheets (Thanks!) Display Q and A in bigger bolder fonts
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	965
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	966 (element question
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	967 (let* ((chlist (children (current-node)))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	968 (firstch (node-list-first chlist))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	969 (restch (node-list-rest chlist)))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	970 (make element gi: "DIV"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	971 attributes: (list (list "CLASS" (gi)))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	972 (make element gi: "P"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	973 (make element gi: "BIG"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	974 (make element gi: "A"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	975 attributes: (list
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	976 (list "NAME" (element-id)))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	977 (empty-sosofo))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	978 (make element gi: "B"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	979 (literal (question-answer-label
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	980 (current-node)) " ")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	981 (process-node-list (children firstch)))))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	982 (process-node-list restch))))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	983
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	984 ;;Literal Elements
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	985
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	986 ;;Indent Literal layouts?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	987 (define %indent-literallayout-lines%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	988 #f)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	989
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	990 ;;Indent Programlistings?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	991 (define %indent-programlisting-lines%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	992 #f)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	993
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	994 ;;Number lines in Programlistings?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	995 (define %number-programlisting-lines%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	996 #f)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	997
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	998 ;;Should verbatim items be 'shaded' with a table?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	999 (define %shade-verbatim%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1000 #t)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1001
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1002 ;;Define shade-verbatim attributes
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1003 (define ($shade-verbatim-attr$)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1004 (list
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1005 (list "BORDER" "0")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1006 (list "BGCOLOR" "#E0E0E0")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1007 (list "WIDTH" ($table-width$))))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1008
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1009 ;;===================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1010 ;; Entities
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1011 ;;===================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1012
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1013 ;;Netscape doesn't handle trademark
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1014 ;;entity right at all!! Get rid of it.
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1015 ;;Make a TM in a superscipt font.
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1016 (element trademark
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1017 (make sequence
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1018 (process-children)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1019 (make element gi: "sup"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1020 (literal "TM"))))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1021
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1022
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1023 ;;===================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1024 ;; New Definitions
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1025 ;;==================
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1026
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1027 (define ($dcm-abstract-object$)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1028 (make element gi: "TABLE"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1029 attributes: '(("BORDER" "0")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1030 ("BGCOLOR" "#E0E0E0")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1031 ("WIDTH" "50%")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1032 ("CELLSPACING" "0")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1033 ("CELLPADDING" "0")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1034 ("ALIGN" "CENTER"))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1035 (make element gi: "TR"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1036 (make element gi: "TD"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1037 attributes: '(("VALIGN" "TOP"))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1038 (make element gi: "B"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1039 (literal "Abstract"))))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1040 (make element gi: "TR"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1041 (make element gi: "TD"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1042 attributes: '(("VALIGN" "TOP"))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1043 (process-children)))))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1044
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1045 ;;Redefine Titlepage Separator on Articles
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1046
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1047 (define (article-titlepage-separator side)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1048 (make empty-element gi: "HR"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1049 attributes: '(("WIDTH" "75%")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1050 ("ALIGN" "CENTER")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1051 ("COLOR" "#000000")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1052 ("SIZE" "1"))))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1053
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1054
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1055
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1056
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1057 (define (chunk-element-list)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1058 (list (normalize "preface")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1059 (normalize "chapter")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1060 (normalize "appendix")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1061 (normalize "article")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1062 (normalize "glossary")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1063 (normalize "bibliography")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1064 (normalize "index")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1065 (normalize "colophon")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1066 (normalize "setindex")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1067 (normalize "reference")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1068 (normalize "refentry")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1069 (normalize "part")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1070 (normalize "sect1")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1071 (normalize "section")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1072 (normalize "book") ;; just in case nothing else matches...
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1073 (normalize "set") ;; sets are definitely chunks...
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1074 ))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1075
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1076 ;;Do you want Callouts to be graphics?
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1077 (define %callout-graphics%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1078 #f)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1079
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1080
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1081 ;;Make Callout graphics PNGs
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1082 (define %callout-graphics-path%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1083 "./imagelib/callouts/")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1084
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1085 ;; Redefine $callout-bug$ to support the %callout-graphic-ext%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1086 ;; variable.
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1087 (define ($callout-bug$ conumber)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1088 (let ((number (if conumber (format-number conumber "1") "0")))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1089 (if conumber
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1090 (if %callout-graphics%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1091 (if (<= conumber %callout-graphics-number-limit%)
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1092 (make empty-element gi: "IMG"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1093 attributes: (list (list "SRC"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1094 (root-rel-path
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1095 (string-append
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1096 %callout-graphics-path%
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1097 number
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1098 %callout-graphics-ext%)))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1099 (list "HSPACE" "0")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1100 (list "VSPACE" "0")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1101 (list "BORDER" "0")
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1102 (list "ALT"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1103 (string-append
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1104 "(" number ")"))))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1105 (make element gi: "B"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1106 (literal "(" (format-number conumber "1") ")")))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1107 (make element gi: "B"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1108 (literal "(" (format-number conumber "1") ")")))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1109 (make element gi: "B"
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1110 (literal "(??)")))))
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1111
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1112 </style-specification-body>
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1113 </style-specification>
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1114
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1115 <external-specification id="docbook" document="docbook.dsl">
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1116
b304b9aab9f0 This is the first cut of the OS-9 Operating System: System Programmer's Manual roug parents: diff changeset	1117 </style-sheet>

Mercurial > hg > Members > kono > nitros9-code

annotate docs/os9sysprog/docbook-utils.dsl @ 34:f2d338984847