# HG changeset patch
# User roug
# Date 1051472474 0
# Node ID bc28c3bc3769bbd1e2afa6a8e85592491d77c4db
# Parent  ba4b50f636580fb95d45de0444c83d99f66e0ac7
Put all stylesheets in one central location

diff -r ba4b50f63658 -r bc28c3bc3769 docs/ReadMe
--- a/docs/ReadMe	Thu Apr 24 01:24:07 2003 +0000
+++ b/docs/ReadMe	Sun Apr 27 19:41:14 2003 +0000
@@ -49,3 +49,26 @@
 
   Mark Galassi's tutorial/introduction to writing in DocBook.
     http://nis-www.lanl.gov/~rosalia/mydocs/docbook-intro.html
+
+DOCBOOK EXTENSIONS:
+-------------------
+At the time of this writing Docbook is undergoing modularisation work.
+One of the new modules is the Extended Backhus-Naur Form, which can
+be used to describe syntax for shell and the C language. But currently
+the renderers don't understand the new elements, so we can't use them.
+I've started to rewrite the shell syntax in os9guide/shell.refentry
+
+For Extended Backhus-Naur Forms use:
+<!DOCTYPE book PUBLIC "-//OASIS//DTD DocBook EBNF Module V1.1CR1//EN"
+     "http://www.oasis-open.org/docbook/xml/ebnf/1.1CR1/dbebnf.dtd" [
+
+
+DSSSL STYLESHEET:
+----------------
+Docbook2pdf uses DSSSL stylesheet. The main one is located in this directory.
+Since the default DSSSL stylesheet is updated once in a while and you must
+reapply your preferences to the new one, here is what is different from
+the default:
+- Enumerate chapters and sections
+- Use element ids as filenames 
+- Don't generate article titlepage on separate page
diff -r ba4b50f63658 -r bc28c3bc3769 docs/articles/bootprocess.article
--- a/docs/articles/bootprocess.article	Thu Apr 24 01:24:07 2003 +0000
+++ b/docs/articles/bootprocess.article	Sun Apr 27 19:41:14 2003 +0000
@@ -5,7 +5,6 @@
 <article>
 <articleinfo>
 <title>The OS-9 Boot Process</title>
-<subtitle>COCO Computer</subtitle>
 <author><firstname>Alan</firstname><surname>DeKok</surname>
 <affiliation>
 <address>
@@ -17,10 +16,16 @@
 <revision>
     <revnumber>1</revnumber>
     <date>Tue Apr 29 21:53:46 EDT 1997</date>
-    <revremark>Last update</revremark>
+</revision>
+<revision>
+    <revnumber>2</revnumber>
+    <date>13-Apr-2003</date>
+    <revremark>DragonDOS boot added</revremark>
 </revision>
 </revhistory>
 </articleinfo>
+<section>
+<title>COCO Computer</title>
 <orderedlist>
 <listitem><para>Typing 'DOS' at the DECB 'OK' prompt loads in track 34 off of the disk.</para></listitem>
 
@@ -55,4 +60,16 @@
 <listitem><para>  OS9p2 then does F$Chain of 'CC3Go'.  This prints a start up banner,
 and runs your 'startup' file through a shell.</para></listitem>
 </orderedlist>
+</section>
+<section>
+<title>Dragon 64</title>
+<para>
+DragonDOS BOOT (when you type BOOT)
+loads sectors (numbered from 0) 2-17 (4096 bytes) into
+RAM at location $2600. The first two bytes of sector 2 must be ASCII 'OS'
+for this to work. It then jumps to $2602 and begins execution.
+The boot code switches into RAM mode, and copies the entire section to
+$F000 and jumps to $F04F. 
+</para>
+</section>
 </article>
diff -r ba4b50f63658 -r bc28c3bc3769 docs/articles/makefile
--- a/docs/articles/makefile	Thu Apr 24 01:24:07 2003 +0000
+++ b/docs/articles/makefile	Sun Apr 27 19:41:14 2003 +0000
@@ -1,5 +1,14 @@
-pdf: articles.pdf
+BOOK            = articles
+STYLESHEET      = ../stylesheets/docbook-utils.dsl
+
+all: $(BOOK).pdf
 
-articles.pdf: articles.docbook bootprocess.article ded.article diskcrash.article \
+$(BOOK).pdf: articles.docbook bootprocess.article ded.article diskcrash.article \
             os9software.article tutorial.article extensionmodule.article
-	docbook2pdf articles.docbook
+	docbook2pdf -d $(STYLESHEET)#print $(BOOK).docbook
+print:
+	psnup -2 $(BOOK).ps | lpr
+
+clean:
+	$(RM) *.html $(BOOK).pdf $(BOOK).ps
+
diff -r ba4b50f63658 -r bc28c3bc3769 docs/articles/tutorial.article
--- a/docs/articles/tutorial.article	Thu Apr 24 01:24:07 2003 +0000
+++ b/docs/articles/tutorial.article	Sun Apr 27 19:41:14 2003 +0000
@@ -89,8 +89,9 @@
 <screen>
 OS9:load dir list del attr copy
 </screen>
-You will now have the commands dir,
-list, del, attr, copy all in memory and
+You will now have the commands <command>dir</command>,
+<command>list</command>, <command>del</command>,
+<command>attr</command>, <command>copy</command> all in memory and
 they are ready for quick access. The
 drawback is that they are taking up
 memory that you might need later. The
@@ -114,7 +115,7 @@
 </para>
 <para>
 OS-9 always has 2 directories that it
-keeps track of... One is the DATA and the
+keeps track of. One is the DATA and the
 other is the EXECUTION directory.  When
 you type a command OS-9 will check the
 current EXECUTION directory which is
@@ -124,9 +125,9 @@
 going to do to the current DATA
 directory and look for your file there.
 The current DATA directory at startup
-is /D0...
+is /D0.
 So if you just type <userinput>DIR</userinput>, OS-9 will go
-and assume you meant DIR /D0... If you
+and assume you meant DIR /D0. If you
 wish to get a directory of say the
 DEFS directory you must give OS-9 the
 whole pathlist (NAME) to the directory.
@@ -156,7 +157,7 @@
      --------
 </screen>
 That is 8 slots that can have a letter
-in it.  If the DIR E command shows this
+in it.  If the <command>dir e</command> command shows this
 on a line
 <screen>
      D--RW-RW
@@ -177,19 +178,19 @@
 would only be able to execute the file.
 </para>
 <para>
-If you don't want to do a DIR E on a
+If you don't want to do a <command>dir e</command> on a
 whole disk than you can get the information
 you need on a single entry by typing:
 <screen>
 ATTR /D0/startup
 </screen>
 this will printout the attributes in
-the same manner as the DIR E command
+the same manner as the <command>dir e</command> command
 did, but you now have the option of
 changing the attributes of a file on
 the disk.
 We'll use the /D0/startup file for an
-example... say the ATTR /D0/startup
+example. say the <userinput>ATTR /D0/startup</userinput>
 prints this
 <screen>
     ------rw
@@ -204,7 +205,7 @@
 and the write ability to that file will
 be taken away.  If you tried to delete
 that file now you would get an error
-message.  You can use this ATTR command
+message.  You can use this <command>attr</command> command
 to change the attributes on all your
 important files so that they will not
 be deleted by accident in the future.
@@ -227,7 +228,7 @@
 You can check this out yourself. LIST
 the file startup like this:
 <screen>
-LIST /D0/startup
+list /D0/startup
 </screen>
 You will see this:
 <screen>
@@ -246,13 +247,13 @@
 will read one line at a time from that
 file and treat it like you were typing
 in the lines from the keyboard.  If
-you want to try this... Just type startup
+you want to try this, just type startup
 at any OS-9 prompt and the system will
 ask you again for the DATE and TIME to
 use on the system.
 You can build a procedure file of your
 own that does a little more than the
-startup file does... DO THIS at the OS-9
+startup file does. <emphasis>Do this</emphasis> at the OS-9
 prompt:
 <screen>
 OS9:build /d0/myfile
@@ -276,15 +277,15 @@
 your screen one at a time.  OS-9 did
 all the commands in the data file as if
 you just typed them in at the keyboard.
-Not bad huh???
+Not bad huh?
 </para>
 <para>
 Now the next important thing to worry
 about with OS-9 is how does it keep
 tabs on free space in memory and on the
-disks???  Memroy in the computer is
+disks?  Memory in the computer is
 split up in blocks of 256 bytes.  If 
-you do a mfree you will get back about
+you do a <command>mfree</command> you will get back about
 159 to 162 blocks of memory.  If you
 know that 4 blocks of 256 bytes makes
 one K (kilobyte) then you know you have
@@ -299,15 +300,15 @@
 pointers.  As OS-9 only writes out to 
 the disk in blocks of 256 bytes you will
 be able to get more information on an OS-9
-disk than a Radio Shack Dos disk which
+disk than a Radio Shack DOS disk which
 stores data to the disk in blocks of
 9 sectors (9*256=2304 bytes).  Write 1
 character to an OS-9 disk and you lose 1
-sector.  Write 1 character to a RS Dos disk
+sector.  Write 1 character to a RS DOS disk
 and you lose 9 sectors!!!
 </para>
 <para>
-Now do a DIR /D0/CMDS and you will see
+Now do a <userinput>dir /D0/CMDS</userinput> and you will see
 quite a long list of commands that are
 available to you.  Don't worry about all
 those titles because as you learn OS-9
@@ -323,32 +324,31 @@
 might want to sell or trade with other
 OS-9 users.  If you aren't all that
 familiar with machine language then you
-can buy some new commands fo OS-9 from
+can buy some new commands for OS-9 from
 companies like Frank Hogg or from
 Computerware or D.P. Johnson.  These
 are commands that are so easy to
-install on your OS-9 disk!!!  All you
+install on your OS-9 disk!  All you
 need to do is copy them to your
 EXECUTION directory which is usually
 the /D0/CMDS directory.  They are then
 available for your use.  No worry on
 your part as to will they work with
-your OS-9!!!  Some of these programs
+your OS-9!  Some of these programs
 are actual commands that you call from
 OS-9 and other programs are what are
-called FILTERS that you pipe data thru
-under OS-9 (more on this in future
-tutorial)...
+called <emphasis>filters</emphasis> that you pipe data through
+under OS-9.
 </para>
 <para>
 And now one final thing to cover on
 OS-9 before I end this lesson.  Is
-there a difference btw. upper and lower
-case when you type in commands???  The
+there a difference between upper and lower
+case when you type in commands?  The
 answer is no... no... no...
-If you type in DIR /D0 or dir /d0 they
+If you type in <userinput>DIR /D0</userinput> or <userinput>dir /d0</userinput> they
 will both act correctly... if you type
-LIST /D0/STARTUP or list /d0/startup
+<userinput>LIST /D0/STARTUP</userinput> or <userinput>list /d0/startup</userinput>
 they will both work correctly.  OS-9
 doesn't care about the case of the
 commands you type in.  But here is a
@@ -356,7 +356,7 @@
 so that what is on your disk are a bit
 easier to understand.  It is felt that
 if you keep all directory names in
-capital letters and all data/comand
+capital letters and all data/command
 files in lower case you will have a
 better idea of what is on your disk
 when you use the <command>dir</command> command.  I find
@@ -403,12 +403,12 @@
 will lock out the bad sectors from the
 directory.  This means that you could
 use a scratched disk that you were not
-able to format under RS Dos... But you
+able to format under RS DOS... But you
 should beware of doing this if you
-intend to put anything realllllly
+intend to put anything <emphasis>really</emphasis>
 important on this disk.
 Now that the format is done at
-the OS-9 prompt... type:
+the OS-9 prompt. Type:
 <screen>
 OS9:free /d0.
 </screen>
@@ -419,7 +419,7 @@
 how many of those sectors are available
 for you to store data in.  OS-9 is set
 up for a 35 track system with 18 sectors
-per track... This gives you 630 sectors
+per track. This gives you 630 sectors
 total on the disk and OS-9 will take 10
 of those sectors for its Directory
 information.  If you do not see 620
@@ -441,7 +441,7 @@
 OS9:chd /d0
 OS9:dir /d0
 </screen>
-....You will see that the dir returns
+....You will see that the <command>dir</command> returns
 LETTERS    BILLS
 as what is on the disk in drive 0
 But you made 6 directories... so where
@@ -453,7 +453,7 @@
 is what you will get.  See how you can
 cluster important stuff in directories
 so that it has a logical flow and you
-can work your way down thru the levels
+can work your way down through the levels
 of the directories to get the information you
 want????
 Try this:
@@ -484,7 +484,7 @@
 </para>
 <para>
 If you have a two drive OS-9 system
-then you can go thru this exercize too
+then you can go through this exercize too
 by just putting the disk you wish to
 format in drive /d1 and changing all
 the makedir and dir statements I gave
@@ -603,7 +603,7 @@
 </para>
 <para>
 OS-9 has the ability to take information
-and pass it thru a pipe into a filter to
+and pass it through a pipe into a filter to
 change the information in some manner before
 showing it on your screen or your
 printer.  The command for a pipe is the
@@ -618,7 +618,7 @@
 OS9:list startup ! tee /d0/f1 /d0/f2
 </screen>
 it would list the data in the file
-called startup thru the pipe (!) into
+called startup through the pipe (!) into
 the filter TEE... this program would then
 send the data out to two files that
 are called /d0/f1 /d0/f2 and you would
@@ -648,7 +648,7 @@
 OS9:list startup ! upper
 </screen>
 this will take any data in a file
-called startup and send it thru the
+called startup and send it through the
 filter called upper... upper will take
 ALL lower case letters and change them
 to upper case before passing that information
@@ -657,7 +657,7 @@
 OS9:list startup ! wc
 </screen>
 This command will list the file startup
-thru the pipe into the filter wc which
+through the pipe into the filter wc which
 will count the # of lines, characters, and
 words in the file which <command>wc</command> will then
 print out to your screen. Imagine
@@ -1266,9 +1266,9 @@
 OS-9 system.  I understand that OS-9
 2.00.00 has a device called /ssp and it
 is for the Radio Shack Speech Sound Pak
-and will let you send a text file thru
-it and it will speak the file out...
-So you could do this...
+and will let you send a text file through
+it and it will speak the file out.
+So you could do this:
 <screen>
 OS9:dir /d0 &gt;/ssp
 </screen>
@@ -1297,8 +1297,8 @@
 <title>Lesson 4</title>
 <para>
 Today we are going to make a new OS-9
-boot disk... we can do this several
-different ways... First type this:
+boot disk. we can do this several
+different ways. First type this:
 <screen>
 OS9:mdir
 </screen>
@@ -1323,14 +1323,14 @@
 just make a new boot disk that will load
 in all of the above modules exactly the
 same way.  We can do this one of two
-ways... First lets format a new disk
+ways... First let's format a new disk
 and we'll put our new OS9boot on it. At
 the OS-9 prompt type:
 <screen>
 OS9:load format free
 </screen>
 take your OS-9 master disk out of drive
-/d0... and install a blank disk in /d0
+/d0, and install a blank disk in /d0
 now at the OS-9 prompt type:
 <screen>
 OS9:format /d0
@@ -1354,9 +1354,10 @@
 <screen>
 OS9:load cobbler makdir save os9gen build echo
 </screen>
-You should now have the commands format,
-free, cobbler, makdir, build, os9gen,
-save and echo in your memory...
+You should now have the commands <command>format</command>,
+<command>free</command>, <command>cobbler</command>,
+<command>makdir</command>, <command>build</command>, <command>os9gen</command>,
+<command>save</command> and <command>echo</command> in your memory...
 Take your master disk out of drive /d0
 and put the new disk in.  Now at the
 OS-9 prompt type:
@@ -1373,7 +1374,7 @@
 have to go through a lot of typing,
 copying and swapping.
 Essentially what you have to do is:
-Use the makdir command to make all the
+Use the <command>makdir</command> command to make all the
 directories on this new disk that were
 on the old Master disk. So you will
 have to do this:
@@ -1382,7 +1383,7 @@
 OS9:makdir /d0/cmds
 OS9:makdir /d0/defs
 </screen>
-Then you will need to use the copy
+Then you will need to use the <command>copy</command>
 command to move all the files/commands
 over from the old Master disk to this
 NEW Master disk.  We are talking about
@@ -1390,17 +1391,17 @@
 just might not be up to going through
 all this work.  Read on... there are 2
 easier ways to do this and I will let
-you decide which you like better?
+you decide which you like better.
 </para>
 <para>
-While cobbler will help us to make a new
+While <command>cobbler</command> will help us to make a new
 boot disk there is no flexibility to it
 and you are stuck with a mirror image
 of the modules from the last boot you
 did.  To give us total control of what
-goes in the OS9boot file we will need
-to use the OS9gen command.
-Leave the new boot disk in drive /do and
+goes in the <filename>OS9boot</filename> file we will need
+to use the <command>OS9gen</command> command.
+Leave the new boot disk in drive /d0 and
 format it again... then do the free on
 it to be sure the total sectors and free
 sectors works out to 630 and 620. We
@@ -1470,12 +1471,12 @@
 modules it is to put into the OS9boot
 file that we are going to put on this
 disk.  It is very important that the
-spellings you used in the save command
+spellings you used in the <command>save</command> command
 are the same as the modules are spelled
 in memory... The new OS9boot we are
 going to make might not work if you
 spell any of the saved modules names
-wrong!!!
+wrong!
 OK, now at the OS-9 prompt you type:
 <screen>
 OS9:build /d0/bootlist
@@ -1488,7 +1489,7 @@
 ? d0
 ? d1
 </screen>
-<note><para>if you did not save d2 and d3 in the
+<note><para>if you did not save <emphasis>d2</emphasis> and <emphasis>d3</emphasis> in the
 save operation leave the next two lines
 out!!!</para></note>
 <screen>
@@ -1503,7 +1504,7 @@
 ? clock
 ? shell
 </screen>
-<note><para>if you did not save rs232 and t1 in
+<note><para>if you did not save <emphasis>rs232</emphasis> and <emphasis>t1</emphasis> in
 the save operation leave the next two
 lines out!!!</para></note>
 <screen>
@@ -1511,7 +1512,7 @@
 ? t1
 </screen>
 <note><para>if you don't have a printer and left
-printer and p out of the save operation
+<emphasis>printer</emphasis> and <emphasis>p</emphasis> out of the save operation
 then leave the next two lines out!!!</para></note>
 <screen>
 ? printer
@@ -1520,7 +1521,7 @@
 ? piper
 ? pipe
 </screen>
-<note><para>if you did not save acia and t2
+<note><para>if you did not save <emphasis>acia</emphasis> and <emphasis>t2</emphasis>
 in the save operation leave the next
 two lines out!!!</para></note>
 <screen>
@@ -1529,36 +1530,36 @@
 ? (enter)
 </screen>
 We now have everything we need on the
-disk in drive /d0 to make os9gen put an
-os9boot file on that disk...
+disk in drive /d0 to make <command>os9gen</command> put an
+<filename>os9boot</filename> file on that disk...
 At the OS-9 prompt type:
 <screen>
 OS9:chd /d0/modules
 OS9:os9gen /d0 &lt;/d0/bootlist
 </screen>
-You will then have a working os9boot
+You will then have a working <filename>os9boot</filename>
 file on the disk in drive /d0.  Now if
-you left out the d2, d3, printer, p,
-rs232, t1, acia and t2 modules when you 
-did your save and when you built your 
+you left out the <emphasis>d2</emphasis>, <emphasis>d3</emphasis>, <emphasis>printer</emphasis>, <emphasis>p</emphasis>,
+<emphasis>rs232</emphasis>, <emphasis>t1</emphasis>, <emphasis>acia</emphasis> and <emphasis>t2</emphasis> modules when you 
+did your <command>save</command> and when you built your 
 bootlist... those modules will not be in 
 memory when you use this disk to do 
-your next boot... BUT DON'T
-BOOT WITH THIS DISK YET... IT HAS NO
-COMMAND DIRECTORY ON IT... You will need
+your next boot... <emphasis>But don't
+boot with this disk yet. It has no
+command directory on it.</emphasis> You will need
 to copy all the data files and commands
 off your master disk to this disk by
 the same method explained in the start
 of this tutorial where I talk about the
-cobbler command.
+<command>cobbler</command> command.
 </para>
 <para>
 Now I also said earlier that there was
 2 other ways to make this boot disk and
 you have to decide if they suit your
-taste... The first way is to make the
-new OS9boot file with either cobbler
-or os9gen in the same way that I have
+taste. The first way is to make the
+new <filename>OS9boot</filename> file with either <command>cobbler</command>
+or <command>os9gen</command> in the same way that I have
 already explained.  Now that the boot
 file is on that disk... Don't copy the
 whole Master disk over to this new disk!
@@ -1566,10 +1567,12 @@
 <screen>
 OS9:makdir /d0/cmds
 </screen>
-Copy the commands setime, dir, free and echo
+Copy the commands <command>setime</command>,
+<command>dir</command>,
+<command>free</command> and <command>echo</command>
 over to the /d0/cmds directory on this
 new disk from /d0/cmds on the old disk.
-Use the build command to build a new
+Use the <command>build</command> command to build a new
 startup file on this disk...
 <screen>
 OS9:build /d0/startup
@@ -1593,31 +1596,30 @@
 OS9:chd /d0
 OS9:chx /d0/cmds
 </screen>
-and you will be up and running... This
+and you will be up and running. This
 will be your working disk and the other
 disk will be used each time you wish to
-BOOT OS-9...
+BOOT OS-9.
 </para>
 <para>
 Another way to make a new BOOT disk is
-to do this... backup the old master disk
+to do this: Backup the old master disk
 to a newly formatted disk.  Leave this
 new disk in /d0.  Now type:
 <screen>
 OS9:chd /d0
 OS9:chx /d0/cmds
 </screen>
-This will let OS-9 know that you have
-changed disks.
-Use the makdir command to make a new
+This will let OS-9 know that you have changed disks.
+Use the <command>makdir</command> command to make a new
 directory called /d0/modules...
-Follow all the save commands listed
+Follow all the <command>save</command> commands listed
 earlier in this tutorial.  Use the
-build command to build a file called
-/d0/bootlist... type in all the lines as
+<command>build</command> command to build a file called
+<filename>/d0/bootlist</filename>. Type in all the lines as
 listed earlier in this tutorial.
 When this is all done, you will use
-the del command to:
+the <command>del</command> command to:
 
 <screen>
 OS9:del /d0/os9boot
@@ -1631,7 +1633,7 @@
 and your new BOOT file will go on this
 disk with more/less modules as you told
 it to put in the BOOT file.
-BOTH of these methods will give you a
+<emphasis>Both</emphasis> of these methods will give you a
 new BOOT disk but they both have their
 drawbacks.  The first method gives you
 a boot disk but with little else on it
@@ -1640,15 +1642,15 @@
 your commands on it and all your
 working files.  But the 2nd way to make
 a new BOOT disk will not work 100% of
-the time.  When you go to cobbler or
-os9gen a new os9boot file on a new disk
+the time.  When you go to <command>cobbler</command> or
+<command>os9gen</command> a new os9boot file on a new disk
 it will write that file out to track 34
-of that disk.  It <emphasis>MUST</emphasis> have an
+of that disk.  It <emphasis>must</emphasis> have an
 unbroken number of sectors on track 34
 to put this bootfile.  If you go to
-cobbler or os9gen on a disk that is
-pretty full the cobbler or os9gen might
-fail.  <emphasis>if</emphasis> you use os9gen to make a new
+<command>cobbler</command> or <command>os9gen</command> on a disk that is
+pretty full the <command>cobbler</command> or <command>os9gen</command> might
+fail.  <emphasis>if</emphasis> you use <command>os9gen</command> to make a new
 os9boot file and it has <emphasis>less</emphasis> modules in
 it then before the 2nd method will work just
 fine.  <emphasis>But</emphasis> if the new os9boot file will
@@ -1657,14 +1659,14 @@
 </para>
 <para>
 It is for this reason that I
-suggest you os9gen on a disk that only
+suggest you <command>os9gen</command> on a disk that only
 had the /d0/bootlist file on it and
 the /d0/modules directory on it.  You
 can then copy over to this new disk
 the few commands you think you will
 need and after you boot with this disk
 take it out of /d0 and put in the disk
-you intend to work with... A disk that
+you intend to work with. A disk that
 has <emphasis>all</emphasis> the commands you know you
 will need!!!
 </para>
@@ -1673,36 +1675,40 @@
 to the os9boot file so that they will
 be in memory at bootup time.  Some very
 useful commands to have in memory all the
-time are dir, build, del, mfree and free.
+time are <command>dir</command>, <command>build</command>,
+<command>del</command>, <command>mfree</command> and
+<command>free</command>.
 The only disadvantage of having these
 modules in the os9boot file is that once
 you boot and these modules are in memory
-all the unlink-ing in the world will <emphasis>NOT</emphasis>
+all the unlink-ing in the world will <emphasis>not</emphasis>
 get them out of memory.  So you have to
 decide if you want them in memory that
 bad.  It should not cause too much of a
 memory problem if you have left out the
-d2, d3, rs232, t1, acia, t2, printer, and
-p modules.
+<emphasis>d2</emphasis>, <emphasis>d3</emphasis>, <emphasis>rs232</emphasis>,
+<emphasis>t1</emphasis>, <emphasis>acia</emphasis>,
+<emphasis>t2</emphasis>, <emphasis>printer</emphasis>, and
+<emphasis>p</emphasis> modules.
 </para>
 <para>
 One of the advantages to making a
 tailored os9boot file is that it gets
 rid of modules that you were never going
-to use and cleans up some ram for you to
-use also.  Not a lot of ram but enough
+to use and cleans up some RAM for you to
+use also.  Not a lot of RAM but enough
 to make all this worthwile.  The most
 important thing to remember though when
-using the os9gen command is that you
+using the <command>os9gen</command> command is that you
 must move the modules from memory out
 to a directory where you will
 put all the modules you wish in the new
-os9boot file... Then you must build a
+os9boot file. Then you must build a
 data file with the names of all the
-modules you saved... change your data
+modules you saved; change your data
 directory to the directory that has all
-the modules in it... then invoke the
-os9gen command telling it where to put
+the modules in it; then invoke the
+<command>os9gen</command> command telling it where to put
 the os9boot file and where it is to
 get the list of the modules  it is to
 put in the os9boot file.
@@ -1716,8 +1722,8 @@
 </literallayout>
 and we did not save them out to the
 /d0/modules directory and we did not put
-them in our bootlist???  You don't need
-to... OS-9 knows to put those 4 modules
+them in our bootlist.  You don't need
+to. OS-9 knows to put those 4 modules
 in each new os9boot file it makes. It is
 something you <emphasis>should not try to do.</emphasis>
 </para>
@@ -1729,15 +1735,15 @@
 There is no getting around this.  If you
 had two disk drives you could have
 formatted the disk in drive /d1.  Then
-used the cobbler or os9gen command to
+used the <command>cobbler</command> or <command>os9gen</command> command to
 put os9boot on that disk.  You could
-have then used the dsave command to
+have then used the <command>dsave</command> command to
 move all the directories/files from
 /d0 over to /d1 and you would have
 saved a lot of time and typing.  So I
 now repeat that OS-9 will run on a 1
 drive system but it sure runs a lot
-better on a 2 drive system!!!
+better on a 2 drive system!
 </para>
 <para>
 You probably read this whole tutorial
@@ -1755,7 +1761,7 @@
 how to make OS-9 use the full 40 tracks
 that my drives were capable of.  It was
 then I decided how great a command
-os9gen was and learned how to use it.
+<command>os9gen</command> was and learned how to use it.
 </para>
 </section>
 </article>
diff -r ba4b50f63658 -r bc28c3bc3769 docs/basic09/docbook-utils-a4.dsl
--- a/docs/basic09/docbook-utils-a4.dsl	Thu Apr 24 01:24:07 2003 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,1064 +0,0 @@
-<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
-<!ENTITY % html "IGNORE">
-<![%html;[
-<!ENTITY % print "IGNORE">
-<!ENTITY docbook.dsl PUBLIC "-//Norman Walsh//DOCUMENT DocBook HTML Stylesheet//EN" CDATA dsssl>
-]]>
-<!ENTITY % print "INCLUDE">
-<![%print;[
-<!ENTITY docbook.dsl PUBLIC "-//Norman Walsh//DOCUMENT DocBook Print Stylesheet//EN" CDATA dsssl>
-]]>
-]>
-
-<!--
-;;#######################################################################
-;;#                                                                     #
-;;#                 The GNOME Documentation Project's                   #
-;;#                  Custion DocBook Stylesheet Layer                   #
-;;#                    by Dave Mason dcm@redhat.com                     #
-;;#            Based on Norman Walsh's Modular Stylesheets              #
-;;#                                                                     #
-;;#            This is intended as a drop-in replacement for            #
-;;#            the cygnus-both.dsl file in DocBook Tools.               #
-;;#           Just copy it to the location dbtools created              #
-;;#                   and rename it cygnus-both.dsl                     #
-;;#                                                                     #
-;;#                       This is Version 1.0-4                         #
-;;#                  patched to fix RTF output (#49677)                 #
-;;#                patched to work with docbook-dsssl-1.72              #
-;;#                 patched for ADDRESS output (#50605)                 #
-;;#                      removed comment and remark                     #
-;;#                      disabled use-id-as-filename                    #
-;;#######################################################################
--->
-
-<style-sheet>
-
-
-<style-specification id="print" use="docbook">
-<style-specification-body> 
-
-;;==========================================================================
-;;                               PRINT
-;;==========================================================================
-
-;;======================================
-;;General Options
-;;======================================
-
-;;Do you want to print on both sides of the paper?
-(define %two-side% 
- #t)
-
-;;Do you want enumerated sections? (E.g, 1.1, 1.1.1, 1.2, etc.)
-(define %section-autolabel% 
- #t)
-
-;;What is the default extension for graphics?
-(define %graphic-default-extension% 
-  "eps")
-
-;;Show URL links? If the text of the link and the URL are identical,
-;;the parenthetical URL is suppressed.
-(define %show-ulinks%
- #t)
-
-;Make Ulinks footnotes to stop bleeding in the edges - this increases
-;'jade --> print' time tremendously keep this in mind before
-;complaining!
-(define %footnote-ulinks%
-  #t)
-
-;;Tex Backend on
-(define tex-backend 
- #t)
-
-;;Define Line Spacing
-(define %line-spacing-factor% 1.1)
-
-;;Define the Paragraph Style
-(define para-style
-  (style
-   font-size: %bf-size%
-   font-weight: 'medium
-   font-posture: 'upright
-   font-family-name: %body-font-family%
-   line-spacing: (* %bf-size% %line-spacing-factor%)))
-
-(define ($object-titles-after$)
-  (list (normalize "figure")))
-
-;;======================================
-;;Book Options
-;;======================================
-
-
-;;Do you want a title page for a Book?
-(define %generate-book-titlepage%
- #t)
-
-;;Do you want a separate page for the title?
-(define %generate-book-titlepage-on-separate-page%
- #t)
-
-;;Generate Book TOC?
-(define %generate-book-toc% 
- #t)
-
-;;What depth should the TOC generate?
-;;!Only top level of appendixes!
-(define (toc-depth nd)
-  (if (string=? (gi nd) (normalize "book"))
-      3
-      (if (string=? (gi nd) (normalize "appendix"))
-        0
-        1)))
-
-;;Do you want a TOC for the element part?
-(define %generate-part-toc% 
- #f)
-
-;;Do you want the part toc on the part titlepage or separate?
-(define %generate-part-toc-on-titlepage%
- #t)
-
-;;Generate Part Title Page?
-(define %generate-part-titlepage% 
-  #f)
-
-;;Do you want the Part intro on the part title page?
-(define %generate-partintro-on-titlepage%
-  #t)
-
-;;What elements should have a LOT?
-(define ($generate-book-lot-list$)
-  (list (normalize "equation")))
-
-;;Do you want chapters enumerated?
-(define %chapter-autolabel% 
- #t)
-
-;;Do you want Chapter's and Appendix's 
-;;to have automatic labels?
-(define %chap-app-running-head-autolabel% 
-  #t)
-
-
-;;======================================
-;;Article Options
-;;======================================
-
-;;Do you want a title page for an Article?
-(define %generate-article-titlepage%
- #t)
-
-;;Generate Article TOC?
-(define %generate-article-toc% 
- #t)
-
-;;Do you want a separate page for the title?
-(define %generate-article-titlepage-on-separate-page%
- #t)
-
-;;Do you want the article toc on the titlepage or separate?
-(define %generate-article-toc-on-titlepage%
- #t)
-
-;;Do you want to start new page numbers with each article?
-(define %article-page-number-restart%
- #f)
-
-;;Titlepage Separate?
-(define (chunk-skip-first-element-list)
-  '())
-
-;;Titlepage Not Separate
-;(define (chunk-skip-first-element-list)
-;  (list (normalize "sect1")
-;	(normalize "section")))
-
-;;======================================
-;;Columns
-;;======================================
-
-;;How many columns do you want?
-(define %page-n-columns%
- 1)
-
-;;How much space between columns?
-(define %page-column-sep%
- 0.2in)
-
-;;How many Columns on the titlepage?
-(define %titlepage-n-columns%
-  1)
-
-;;Balance columns?
-(define %page-balance-colums%
-#t)
-
-;;======================================
-;;Fonts
-;;======================================
-
-;;Defines the general size of the text in the document. normal(10),
-;;presbyopic(12), and large-type(24). 
-(define %visual-acuity%
- "normal")
-
-;;What font would you like for titles?
-(define %title-font-family% 
-  "Helvetica")
-
-;;What font would you like for the body?
-(define %body-font-family% 
- "Palatino")
-
-;;What font would you like for mono-seq?
-(define %mono-font-family% 
- "Courier New")
-
-;;If the base fontsize is 10pt, and '%hsize-bump-factor%' is
-;; 1.2, hsize 1 is 12pt, hsize 2 is 14.4pt, hsize 3 is 17.28pt, etc
-(define %hsize-bump-factor% 
- 1.1)
-
-;;What size do you want the body fonts?
-(define %bf-size%
- (case %visual-acuity%
-    (("tiny") 8pt)
-    (("normal") 10pt)
-    (("presbyopic") 12pt)
-    (("large-type") 24pt)))
-
-(define-unit em %bf-size%)
-
-;;======================================
-;;Margins
-;;======================================
-
-(define %left-right-margin% 6pi)
-
-;;How much indentation for the body?
-(define %body-start-indent% 
- 4pi)
-
-;;How big is the left margin? (relative to physical page)
-(define %left-margin% 
- 8pi) ;white-paper-column
-
-;;How big is the right margin? (relative to physical page)
-(define %right-margin% 
- 8pi) ;white-paper-column
-
-;;How big do you want the margin at the top?
-(define %top-margin%
-(if (equal? %visual-acuity% "large-type")
-      7.5pi
-      6pi))
-
-;;How big do you want the margin at the bottom?
-(define %bottom-margin% 
- (if (equal? %visual-acuity% "large-type")
-      7.5pi 
-      5pi))
-
-;;Define the text width. (Change the elements in the formula rather
-;;than the formula itself)
-;(define %text-width% (- %page-width% (* %left-right-margin% 2)))
-(define %text-width%  (- %page-width% (+ %left-margin% %right-margin%)))
-
-;;Define the body width. (Change the elements in the formula rather
-;;than the formula itself)
-(define %body-width% 
- (- %text-width% %body-start-indent%))
-
-;;Define distance between paragraphs
-(define %para-sep% 
- (/ %bf-size% 2.0))
-
-;;Define distance between block elements (figures, tables, etc.).
-(define %block-sep% 
- (* %para-sep% 2.0))
-
-;;Indent block elements?
-(define %block-start-indent% 
-  0pt)
-;0pt
-
-;;======================================
-;;Admon Graphics
-;;======================================
-
-;;Do you want admon graohics on?
-(define %admon-graphics%
- #f)
-
-;;Where are the admon graphics?
-(define %admon-graphics-path%
- "../images/")
-
-;;======================================
-;;Quadding
-;;======================================
-
-;;What quadding do you want by default; start, center, justify, or end?
-(define %default-quadding%
- 'justify)
-
-;;What quadding for component titles(Chapter, Appendix, etc)?
-(define %component-title-quadding% 
- 'start)
-
-;;What quadding for section titles?
-(define %section-title-quadding% 
- 'start)
-
-;;What quadding for section sub-titles?
-(define %section-subtitle-quadding%
- 'start)
-
-;;What quadding for article title?
-(define %article-title-quadding% 
- 'center)
-
-;;What quadding for article sub-titles?
-(define %article-subtitle-quadding%
- 'center)
-
-;;What quadding for division subtitles?
-(define %division-subtitle-quadding% 
-  'start)
-
-;;What quadding for component subtitles?
-(define %component-subtitle-quadding% 
-  'start)
-
-
-
-
-;;======================================
-;;Paper Options
-;;======================================
-
-;;What size paper do you need? A4, USletter, USlandscape, or RedHat?
-(define %paper-type%
- "A4")
-
-;;Now define those paper types' width
-(define %page-width%
- (case %paper-type%
-    (("A4") 210mm)
-    (("USletter") 8.5in)
-    (("USlandscape") 11in)))
-
-;;Now define those paper types' height
-(define %page-height%
- (case %paper-type%
-    (("A4") 297mm)
-    (("USletter") 11in)
-    (("USlandscape") 8.5in)))
-
-;;======================================
-;;Functions
-;;======================================
-
-(define (OLSTEP)
-  (case
-   (modulo (length (hierarchical-number-recursive "ORDEREDLIST")) 4)
-	((1) 1.2em)
-	((2) 1.2em)
-	((3) 1.6em)
-	((0) 1.4em)))
-
-(define (ILSTEP) 1.0em)
-
-(define (PROCSTEP ilvl)
-  (if (> ilvl 1) 1.8em 1.4em))
-
-(define (PROCWID ilvl)
-  (if (> ilvl 1) 1.8em 1.4em))
-
-
-(define ($comptitle$)
-  (make paragraph
-	font-family-name: %title-font-family%
-	font-weight: 'bold
-	font-size: (HSIZE 2)
-	line-spacing: (* (HSIZE 2) %line-spacing-factor%)
-	space-before: (* (HSIZE 2) %head-before-factor%)
-	space-after: (* (HSIZE 2) %head-after-factor%)
-	start-indent: 0pt
-	first-line-start-indent: 0pt
-	quadding: 'start
-	keep-with-next?: #t
-	(process-children-trim)))
-
-;;Callouts are confusing in Postscript... fix them.
-(define %callout-fancy-bug% 
- #f)
-
-
-;;By default perils are centered and dropped into a box with a really
-;;big border - I have simply decreased the border thickness -
-;;unfortunately it takes all this to do it - sigh.
-(define ($peril$)
-  (let* ((title     (select-elements 
-		     (children (current-node)) (normalize "title")))
-	 (has-title (not (node-list-empty? title)))
-	 (adm-title (if has-title 
-			(make sequence
-			  (with-mode title-sosofo-mode
-			    (process-node-list (node-list-first title))))
-			(literal
-			 (gentext-element-name 
-			  (current-node)))))
-	 (hs (HSIZE 2)))
-  (if %admon-graphics%
-      ($graphical-admonition$)
-      (make display-group
-	space-before: %block-sep%
-	space-after: %block-sep%
-	font-family-name: %admon-font-family%
-	font-size: (- %bf-size% 1pt)
-	font-weight: 'medium
-	font-posture: 'upright
-	line-spacing: (* (- %bf-size% 1pt) %line-spacing-factor%)
-	(make box
-	  display?: #t
-	  box-type: 'border
-	  line-thickness: .5pt
-	  start-indent: (+ (inherited-start-indent) (* 2 (ILSTEP)) 2pt)
-	  end-indent: (inherited-end-indent)
-	  (make paragraph
-	    space-before: %para-sep%
-	    space-after: %para-sep%
-	    start-indent: 1em
-	    end-indent: 1em
-	    font-family-name: %title-font-family%
-	    font-weight: 'bold
-	    font-size: hs
-	    line-spacing: (* hs %line-spacing-factor%)
-	    quadding: 'center
-	    keep-with-next?: #t
-	    adm-title)
-	  (process-children))))))
-
-
-;;======================================
-;;Non-printing Elements
-;;======================================
-(element TITLEABBREV (empty-sosofo))
-(element SUBTITLE (empty-sosofo))
-(element SETINFO (empty-sosofo))
-(element BOOKINFO (empty-sosofo))
-(element BIBLIOENTRY (empty-sosofo))
-(element BIBLIOMISC (empty-sosofo))
-(element BOOKBIBLIO (empty-sosofo))
-(element SERIESINFO (empty-sosofo))
-(element DOCINFO (empty-sosofo))
-(element ARTHEADER (empty-sosofo))
-;;(element ADDRESS (empty-sosofo))
-
-;;Show comment element?
-(define %show-comments%
-  #t)
-
-;;======================================
-;;Formalpara titles
-;;======================================
-
-
-;;Change the way Formal Paragraph titles are displayed. The commented
-;;out section will run the titles in the paragraphs. 
-(element (formalpara title)
-  ;(make sequence
-  ;font-weight: 'bold
-  ;($runinhead$))
-  ($lowtitle$ 5 7))
-
-;;======================================
-;;Inlines
-;;======================================
-
-(element application ($mono-seq$))
-(element command ($bold-seq$))
-(element filename ($mono-seq$))
-(element function ($mono-seq$))
-(element guibutton ($bold-seq$))
-(element guiicon ($bold-seq$))
-(element guilabel ($italic-seq$))
-(element guimenu ($bold-seq$))
-(element guimenuitem ($bold-seq$))
-(element hardware ($bold-mono-seq$))
-(element keycap ($bold-seq$))
-(element literal ($mono-seq$))
-(element parameter ($italic-mono-seq$))
-(element prompt ($mono-seq$))
-(element symbol ($charseq$))
-(element emphasis ($italic-seq$))
-
-</style-specification-body>
-</style-specification>
-
-
-<!-- 
-;;===========================================================================
-;;                                HTML
-;;===========================================================================
--->
-
-<style-specification id="html" use="docbook">
-<style-specification-body> 
-
-;; this is necessary because right now jadetex does not understand
-;; symbolic entities, whereas things work well with numeric entities.
-(declare-characteristic preserve-sdata?
-          "UNREGISTERED::James Clark//Characteristic::preserve-sdata?"
-          #f)
-
-
-;;=========================
-;;Header HTML 4.0.1
-;;=========================
-
-(define %html-pubid% "-//W3C//DTD HTML 4.01//EN")
-
-;;=========================
-;;Common Stuff
-;;=========================
-
-;;Should there be a link to the legalnotice?
-(define %generate-legalnotice-link%
-  #t)
-
-;;What graphics extensions allowed?
-(define %graphic-extensions% 
-'("gif" "png" "jpg" "jpeg" "tif" "tiff" "eps" "epsf" ))
-
-;;What is the default extension for images?
-(define %graphic-default-extension% "png")
-
-;;Use element ids as filenames?
-(define %use-id-as-filename%
- #f)
-
-
-;;=========================
-;;Book Stuff
-;;=========================
-
-;;Do you want a TOC for Books?
-(define %generate-book-toc% 
-  #t)
-
-;;What depth should the TOC generate?
-;;!Only top level of appendixes!
-(define (toc-depth nd)
-  (if (string=? (gi nd) (normalize "book"))
-      3
-      (if (string=? (gi nd) (normalize "appendix"))
-        0
-        1)))
-
-;;What elements should have an LOT?
-(define ($generate-book-lot-list$)
-  (list (normalize "equation")))
-
-;;Do you want a title page for your Book?
-(define %generate-book-titlepage%
-#t)
-
-;;=========================
-;;Part Stuff
-;;=========================
-
-;;Should parts have TOCs?
-(define %generate-part-toc% 
-  #t)
-
-;;Should part TOCs be on their titlepages?
-(define %generate-part-toc-on-titlepage%
-  #t)
-
-;;Do you want a title page for your part?
-(define %generate-part-titlepage% 
-  #t)
-
-;;Should the Part intro be on the part title page?
-(define %generate-partintro-on-titlepage%
- #t)
-
-(define %para-autolabel%
- #t)
-
-;;========================
-;;Chapter Stuff
-;;=======================
-
-;;No TOCs in Chapters
-(define $generate-chapter-toc$
- (lambda ()
-    #f))
-
-;;=========================
-;;Navigation
-;;=========================
-
-;;Should there be navigation at top?
-(define %header-navigation%
- #t)
-
-;;Should there be navigation at bottom?
-(define %footer-navigation%
-  #t)
-
-;;Use tables to create the navigation?
-(define %gentext-nav-use-tables%
- #t)
-
-;;If tables are used for navigation, 
-;;how wide should they be? 
-(define %gentext-nav-tblwidth% 
-"100%")
-
-;;Add arrows to navigation (comment these 
-;;out if you want admon graphics here)
-(define (gentext-en-nav-prev prev) 
-  (make sequence (literal "<<< Previous")))
-
-;;Add arrows to navigation (comment these 
-;;out if you want admon graphics here)
-(define (gentext-en-nav-next next)
-  (make sequence (literal "Next >>>")))
-
-
-;;=========================
-;;Tables and Lists
-;;=========================
-
-;;Should Variable lists be tables?
-(define %always-format-variablelist-as-table%
- #f)
-
-;;What is the length of the 'Term' in a variablelist?
-(define %default-variablelist-termlength%
-  20)
-
-;;When true | If the terms are shorter than 
-;;the termlength above then the variablelist 
-;;will be formatted as a table.
-(define %may-format-variablelist-as-table%
-#f)
-
-;;This overrides the tgroup definition 
-;;(copied from 1.20, dbtable.dsl).
-;;It changes the table background color, 
-;;cell spacing and cell padding.
-;;This is based on gtk-doc additions - thanks!
-
-(element tgroup
-  (let* ((wrapper   (parent (current-node)))
-	 (frameattr (attribute-string (normalize "frame") wrapper))
-	 (pgwide    (attribute-string (normalize "pgwide") wrapper))
-	 (footnotes (select-elements (descendants (current-node)) 
-				     (normalize "footnote")))
-	 (border (if (equal? frameattr (normalize "none"))
-		     '(("BORDER" "0"))
-		     '(("BORDER" "1"))))
-	 (bgcolor '(("BGCOLOR" "#E0E0E0")))
-	 (width (if (equal? pgwide "1")
-		    (list (list "WIDTH" ($table-width$)))
-		    '()))
-	 (head (select-elements (children (current-node)) (normalize "thead")))
-	 (body (select-elements (children (current-node)) (normalize "tbody")))
-	 (feet (select-elements (children (current-node)) (normalize "tfoot"))))
-    (make element gi: "TABLE"
-	  attributes: (append
-		       border
-		       width
-		       bgcolor
-		       '(("CELLSPACING" "0"))
-		       '(("CELLPADDING" "4"))
-		       (if %cals-table-class%
-			   (list (list "CLASS" %cals-table-class%))
-			   '()))
-	  (process-node-list head)
-	  (process-node-list body)
-	  (process-node-list feet)
-	  (make-table-endnotes))))
-
-;;===================
-;; Admon Graphics
-;;===================
-
-;;Should Admon Graphics be used?
-(define %admon-graphics%
-  #t)
-
-;;Where are those admon graphics?
-(define %admon-graphics-path%
-  "./stylesheet-images/")
-
-;;Given an admonition node, returns the 
-;;name of the graphic that should
-;;be used for that admonition.
-;;Define admon graphics usage
-;;NOTE these will change to pngs 
-;;soon in the GDP when Tigert gets 
-;;the time to make special ones for us!
-(define ($admon-graphic$ #!optional (nd (current-node)))
-  (cond ((equal? (gi nd) (normalize "tip"))
-	 (string-append %admon-graphics-path% "tip.gif"))
-	((equal? (gi nd) (normalize "note"))
-	 (string-append %admon-graphics-path% "note.gif"))
-	((equal? (gi nd) (normalize "important"))
-	 (string-append %admon-graphics-path% "important.gif"))
-	((equal? (gi nd) (normalize "caution"))
-	 (string-append %admon-graphics-path% "caution.gif"))
-	((equal? (gi nd) (normalize "warning"))
-	 (string-append %admon-graphics-path% "warning.gif"))
-	(else (error (string-append (gi nd) " is not an admonition.")))))
-
-;;Given an admonition node, returns 
-;;the width of the graphic that will
-;;be used for that admonition.
-(define ($admon-graphic-width$ #!optional (nd (current-node)))
-  "25")
-
-;;=========================
-;;Labels
-;;=========================
-
-;;Enumerate Chapters?
-(define %chapter-autolabel% 
- #t)
-
-;;Enumerate Sections?
-(define %section-autolabel%
- #t)
-
-;;=========================
-;;    HTML Attributes
-;;=========================
-
-;;What attributes should be hung off 
-;;of 'body'?
-(define %body-attr%
- (list
-   (list "BGCOLOR" "#FFFFFF")
-   (list "TEXT" "#000000")
-   (list "LINK" "#0000FF")
-   (list "VLINK" "#840084")
-   (list "ALINK" "#0000FF")))
-
-;;Default extension for filenames?
-(define %html-ext% 
-  ".html")
-
-;;Use a CSS stylesheet?
-;;Which one? Should work on 
-;;this one soon
-;(define %stylesheet% 
-;        "./gnome.css")
-
-;;Use it
-;(define %stylesheet-type% 
-;"text/css")
-
-
-;;========================
-;;Title Pages for Books
-;;=======================
-
-(define (book-titlepage-recto-elements)
-  (list (normalize "title")
-	(normalize "subtitle")
-	(normalize "corpauthor")
-	(normalize "authorgroup")
-	(normalize "author")
-	(normalize "orgname")
-	(normalize "graphic")
-	(normalize "copyright")
-	(normalize "legalnotice")
-	(normalize "releaseinfo")
-	(normalize "publisher")
-	(normalize "isbn")))
-
-;;========================
-;;Title Pages for Articles
-;;========================
-
-;;Should Articles have a TOC?
-(define %generate-article-toc% 
-  #t)
-
-;;Which elements should appear 
-;;on title page?
-(define (article-titlepage-recto-elements)
-  (list (normalize "title")
-	(normalize "subtitle")
-        (normalize "authorgroup")
-        (normalize "copyright")
-        (normalize "legalnotice")
-        (normalize "abstract")))
-
-;;How should elements on title page look?
-(mode article-titlepage-recto-mode
-
-;;Author name is too big - change it!
-  (element author
-    (let ((author-name  (author-string))
-	  (author-affil (select-elements (children (current-node)) 
-					 (normalize "affiliation"))))
-      (make sequence      
-	(make element gi: "H4"
-	      attributes: (list (list "CLASS" (gi)))
-	      (make element gi: "A"
-		    attributes: (list (list "NAME" (element-id)))
-		    (literal author-name)))
-	(process-node-list author-affil))))
-
-;;Address?
-  (element address 
-    (make sequence
-      (make element gi: "DIV"
-            attributes: (list (list "CLASS" (gi)))
-            (process-children))))
-
-;;Get rid of spam-producing "mailto" links
-;;and get rid of email indentation  
-  (element email
-    (make sequence
-      (make element gi: "DIV"
-            attributes: (list (list "CLASS" (gi)))
-            (process-children))))
-
-;;Point Abstract to custom table function 
-;;(See $dcm-abstract-object$ below. For default
-;;use $semiformal-object$
-  (element abstract
-    (make element gi: "DIV"
-          ($dcm-abstract-object$)))
-
-  (element (abstract title) (empty-sosofo))
-
-;;subtitle sizing
-(element subtitle 
-  (make element gi: "H4"
-        attributes: (list (list "CLASS" (gi)))
-        (process-children-trim))))
-
-;;=================
-;;    INLINES
-;;=================
-
-;Define my own series of fonts for various elements
-(element application ($mono-seq$))
-(element command ($bold-seq$))
-(element filename ($mono-seq$))
-(element function ($mono-seq$))
-(element guibutton ($bold-seq$))
-(element guiicon ($bold-seq$))
-(element guilabel ($bold-mono-seq$))
-(element guimenu ($bold-seq$))
-(element guimenuitem ($bold-seq$))
-(element guisubmenu ($bold-seq$))
-(element hardware ($bold-mono-seq$))
-(element keycap ($bold-seq$))
-(element literal ($mono-seq$))
-(element parameter ($italic-mono-seq$))
-(element prompt ($mono-seq$))
-(element symbol ($charseq$))
-(element emphasis ($italic-seq$))
-
-;;Show comment element?
-(define %show-comments%
-  #t)
-
-;;====================
-;; General Formatting
-;;====================
-
-;;Formal Paras are ugly by default!
-;;Make the title run in - otherwise 
-;;you should use a sect!
-(element formalpara
-  (make element gi: "DIV"
-	attributes: (list
-		     (list "CLASS" (gi)))
-  	(make element gi: "P"
-	      (process-children))))
-
-;;This is the old one 
-;(element (formalpara title) 
-;($lowtitle$ 5))
-
-;;This is the new one
-(element (formalpara title) 
-  (make element gi: "B"
-	($runinhead$)))
-
-;;Make captions come after objects in the list
-(define ($object-titles-after$)
-  (list (normalize "figure")))
-
-
-;; Handle qanda labelling with Q: A:
-(define (qanda-defaultlabel)
-  (normalize "qanda"))
-
-;;From FreeBSD Sheets (Thanks!) Display Q and A in bigger bolder fonts
-
-(element question
-  (let* ((chlist   (children (current-node)))
-	 (firstch  (node-list-first chlist))
-	 (restch   (node-list-rest chlist)))
-    (make element gi: "DIV"
-	  attributes: (list (list "CLASS" (gi)))
-	  (make element gi: "P" 
-		(make element gi: "BIG"
-		      (make element gi: "A"
-			    attributes: (list
-					 (list "NAME" (element-id)))
-			    (empty-sosofo))
-		      (make element gi: "B"
-			    (literal (question-answer-label
-				      (current-node)) " ")
-			    (process-node-list (children firstch)))))
-	  (process-node-list restch))))
-
-;;Literal Elements
-
-;;Indent Literal layouts?
-(define %indent-literallayout-lines% 
-  #f)
-
-;;Indent Programlistings?
-(define %indent-programlisting-lines%
-  #f)
-
-;;Number lines in Programlistings?
-(define %number-programlisting-lines%
- #f)
-
-;;Should verbatim items be 'shaded' with a table?
-(define %shade-verbatim% 
- #t)
-
-;;Define shade-verbatim attributes
-(define ($shade-verbatim-attr$)
- (list
-  (list "BORDER" "0")
-  (list "BGCOLOR" "#E0E0E0")
-  (list "WIDTH" ($table-width$))))
-
-;;===================
-;;    Entities
-;;===================
-
-;;Netscape doesn't handle trademark 
-;;entity right at all!! Get rid of it.
-;;Make a TM in a superscipt font.
-(element trademark
-  (make sequence
-    (process-children)
-    (make element gi: "sup"
-    (literal "TM"))))
-
-
-;;===================
-;; New Definitions
-;;==================
-
-(define ($dcm-abstract-object$)
-   (make element gi: "TABLE"
-        attributes: '(("BORDER" "0")
-                      ("BGCOLOR" "#E0E0E0")
-                      ("WIDTH" "50%")
-                      ("CELLSPACING" "0")
-                      ("CELLPADDING" "0")
-                      ("ALIGN" "CENTER"))
-        (make element gi: "TR"
-              (make element gi: "TD"
-                    attributes: '(("VALIGN" "TOP"))
-                    (make element gi: "B"
-                    (literal "Abstract"))))
-        (make element gi: "TR"
-              (make element gi: "TD"
-                    attributes: '(("VALIGN" "TOP"))
-                    (process-children)))))
-
-;;Redefine Titlepage Separator on Articles
-
-(define (article-titlepage-separator side)
-  (make empty-element gi: "HR"
-  attributes: '(("WIDTH" "75%")
-                 ("ALIGN" "CENTER")
-                 ("COLOR" "#000000")
-                 ("SIZE" "1"))))
-
-
-
-
-(define (chunk-element-list)
-  (list (normalize "preface")
-	(normalize "chapter")
-	(normalize "appendix") 
-	(normalize "article")
-	(normalize "glossary")
-	(normalize "bibliography")
-	(normalize "index")
-	(normalize "colophon")
-	(normalize "setindex")
-	(normalize "reference")
-	(normalize "refentry")
-	(normalize "part")
-	(normalize "sect1") 
-	(normalize "section") 
-	(normalize "book") ;; just in case nothing else matches...
-	(normalize "set")  ;; sets are definitely chunks...
-	))
-
-;;Do you want Callouts to be graphics?
-(define %callout-graphics%
-#f)
-
-
-;;Make Callout graphics PNGs
-(define %callout-graphics-path%
-  "./imagelib/callouts/")
-
-  ;; Redefine $callout-bug$ to support the %callout-graphic-ext%
-  ;; variable.
-  (define ($callout-bug$ conumber)
-    (let ((number (if conumber (format-number conumber "1") "0")))
-      (if conumber
-          (if %callout-graphics%
-              (if (<= conumber %callout-graphics-number-limit%)
-                  (make empty-element gi: "IMG"
-                        attributes: (list (list "SRC"
-                                                (root-rel-path
-                                                 (string-append
-                                                  %callout-graphics-path%
-                                                  number
-                                                  %callout-graphics-ext%)))
-                                          (list "HSPACE" "0")
-                                          (list "VSPACE" "0")
-                                          (list "BORDER" "0")
-                                          (list "ALT"
-                                                (string-append
-                                                 "(" number ")"))))
-                  (make element gi: "B"
-                        (literal "(" (format-number conumber "1") ")")))
-              (make element gi: "B"
-                    (literal "(" (format-number conumber "1") ")")))
-          (make element gi: "B"
-         (literal "(??)")))))
-
-</style-specification-body>
-</style-specification>
-
-<external-specification id="docbook" document="docbook.dsl">
-
-</style-sheet>
diff -r ba4b50f63658 -r bc28c3bc3769 docs/basic09/docbook-utils.dsl
--- a/docs/basic09/docbook-utils.dsl	Thu Apr 24 01:24:07 2003 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,1117 +0,0 @@
-<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
-<!ENTITY % html "IGNORE">
-<![%html;[
-<!ENTITY % print "IGNORE">
-<!ENTITY docbook.dsl PUBLIC "-//Norman Walsh//DOCUMENT DocBook HTML Stylesheet//EN" CDATA dsssl>
-]]>
-<!ENTITY % print "INCLUDE">
-<![%print;[
-<!ENTITY docbook.dsl PUBLIC "-//Norman Walsh//DOCUMENT DocBook Print Stylesheet//EN" CDATA dsssl>
-]]>
-]>
-
-<!--
-;;#######################################################################
-;;#                                                                     #
-;;#                 The GNOME Documentation Project's                   #
-;;#                  Custion DocBook Stylesheet Layer                   #
-;;#                    by Dave Mason dcm@redhat.com                     #
-;;#            Based on Norman Walsh's Modular Stylesheets              #
-;;#                                                                     #
-;;#            This is intended as a drop-in replacement for            #
-;;#            the cygnus-both.dsl file in DocBook Tools.               #
-;;#           Just copy it to the location dbtools created              #
-;;#                   and rename it cygnus-both.dsl                     #
-;;#                                                                     #
-;;#                       This is Version 1.0-4                         #
-;;#######################################################################
--->
-
-<style-sheet>
-
-
-<style-specification id="print" use="docbook">
-<style-specification-body> 
-
-;;==========================================================================
-;;                               PRINT
-;;==========================================================================
-
-;;======================================
-;;General Options
-;;======================================
-
-;;Do you want to print on both sides of the paper?
-(define %two-side% 
- #t)
-
-;;Do you want enumerated sections? (E.g, 1.1, 1.1.1, 1.2, etc.)
-(define %section-autolabel% 
- #f)
-
-;;What is the default extension for graphics?
-(define %graphic-default-extension% 
-  "eps")
-
-;;Show URL links? If the text of the link and the URL are identical,
-;;the parenthetical URL is suppressed.
-(define %show-ulinks%
- #t)
-
-;Make Ulinks footnotes to stop bleeding in the edges - this increases
-;'jade --> print' time tremendously keep this in mind before
-;complaining!
-(define %footnote-ulinks%
-  #t)
-
-;;Tex Backend on
-(define tex-backend 
- #t)
-
-;;Define Line Spacing
-(define %line-spacing-factor% 1.1)
-
-;;Define the Paragraph Style
-(define para-style
-  (style
-   font-size: %bf-size%
-   font-weight: 'medium
-   font-posture: 'upright
-   font-family-name: %body-font-family%
-   line-spacing: (* %bf-size% %line-spacing-factor%)))
-
-(define ($object-titles-after$)
-  (list (normalize "figure")))
-
-;;======================================
-;;Book Options
-;;======================================
-
-
-;;Do you want a title page for a Book?
-(define %generate-book-titlepage%
- #t)
-
-;;Do you want a separate page for the title?
-(define %generate-book-titlepage-on-separate-page%
- #f)
-
-;;Generate Book TOC?
-(define %generate-book-toc% 
- #t)
-
-;;What depth should the TOC generate?
-;;!Only top level of appendixes!
-(define (toc-depth nd)
-  (if (string=? (gi nd) (normalize "book"))
-      2
-      (if (string=? (gi nd) (normalize "appendix"))
-        0
-        1)))
-
-;;Do you want a TOC for the element part?
-(define %generate-part-toc% 
- #f)
-
-;;Do you want the part toc on the part titlepage or separate?
-(define %generate-part-toc-on-titlepage%
- #t)
-
-;;Generate Part Title Page?
-(define %generate-part-titlepage% 
-  #f)
-
-;;Do you want the Part intro on the part title page?
-(define %generate-partintro-on-titlepage%
-  #t)
-
-;;What elements should have a LOT?
-(define ($generate-book-lot-list$)
-  (list (normalize "equation")))
-
-;;Do you want chapters enumerated?
-(define %chapter-autolabel% 
- #t)
-
-;;Do you want Chapter's and Appendix's 
-;;to have automatic labels?
-(define %chap-app-running-head-autolabel% 
-  #t)
-
-
-;;======================================
-;;Article Options
-;;======================================
-
-;;Do you want a title page for an Article?
-(define %generate-article-titlepage%
- #t)
-
-;;Generate Article TOC?
-(define %generate-article-toc% 
- #t)
-
-;;Do you want a separate page for the title?
-(define %generate-article-titlepage-on-separate-page%
- #t)
-
-;;Do you want the article toc on the titlepage or separate?
-(define %generate-article-toc-on-titlepage%
- #t)
-
-;;Do you want to start new page numbers with each article?
-(define %article-page-number-restart%
- #f)
-
-;;Titlepage Separate?
-(define (chunk-skip-first-element-list)
-  '())
-
-;;Titlepage Not Separate
-;(define (chunk-skip-first-element-list)
-;  (list (normalize "sect1")
-;	(normalize "section")))
-
-;;======================================
-;;Columns
-;;======================================
-
-;;How many columns do you want?
-(define %page-n-columns%
- 1)
-
-;;How much space between columns?
-(define %page-column-sep%
- 0.2in)
-
-;;How many Columns on the titlepage?
-(define %titlepage-n-columns%
-  1)
-
-;;Balance columns?
-(define %page-balance-colums%
-#t)
-
-;;======================================
-;;Fonts
-;;======================================
-
-;;Defines the general size of the text in the document. normal(10),
-;;presbyopic(12), and large-type(24). 
-(define %visual-acuity%
- "normal")
-
-;;What font would you like for titles?
-(define %title-font-family% 
-  "Helvetica")
-
-;;What font would you like for the body?
-(define %body-font-family% 
- "Palatino")
-
-;;What font would you like for mono-seq?
-(define %mono-font-family% 
- "Courier New")
-
-;;If the base fontsize is 10pt, and '%hsize-bump-factor%' is
-;; 1.2, hsize 1 is 12pt, hsize 2 is 14.4pt, hsize 3 is 17.28pt, etc
-(define %hsize-bump-factor% 
- 1.1)
-
-;;What size do you want the body fonts?
-(define %bf-size%
- (case %visual-acuity%
-    (("tiny") 8pt)
-    (("normal") 10pt)
-    (("presbyopic") 12pt)
-    (("large-type") 24pt)))
-
-(define-unit em %bf-size%)
-
-;;======================================
-;;Margins
-;;======================================
-
-(define %left-right-margin% 6pi)
-
-;;How much indentation for the body?
-(define %body-start-indent% 
- 4pi)
-
-;;How big is the left margin? (relative to physical page)
-(define %left-margin% 
- 8pi) ;white-paper-column
-
-;;How big is the right margin? (relative to physical page)
-(define %right-margin% 
- 8pi) ;white-paper-column
-
-;;How big do you want the margin at the top?
-(define %top-margin%
-(if (equal? %visual-acuity% "large-type")
-      7.5pi
-      4pi))
-
-;;How big do you want the margin at the bottom?
-(define %bottom-margin% 
- (if (equal? %visual-acuity% "large-type")
-      7.5pi 
-      2pi))
-
-;;Define the text width. (Change the elements in the formula rather
-;;than the formula itself)
-;(define %text-width% (- %page-width% (* %left-right-margin% 2)))
-(define %text-width%  (- %page-width% (+ %left-margin% %right-margin%)))
-
-;;Define the body width. (Change the elements in the formula rather
-;;than the formula itself)
-(define %body-width% 
- (- %text-width% %body-start-indent%))
-
-;;Define distance between paragraphs
-(define %para-sep% 
- (/ %bf-size% 2.0))
-
-;;Define distance between block elements (figures, tables, etc.).
-(define %block-sep% 
- (* %para-sep% 2.0))
-
-;;Indent block elements?
-(define %block-start-indent% 
-  0pt)
-;0pt
-
-;;======================================
-;;Admon Graphics
-;;======================================
-
-;;Do you want admon graohics on?
-(define %admon-graphics%
- #f)
-
-;;Where are the admon graphics?
-(define %admon-graphics-path%
- "../images/")
-
-;;======================================
-;;Quadding
-;;======================================
-
-;;What quadding do you want by default; start, center, justify, or end?
-(define %default-quadding%
- 'justify)
-
-;;What quadding for component titles(Chapter, Appendix, etc)?
-(define %component-title-quadding% 
- 'start)
-
-;;What quadding for section titles?
-(define %section-title-quadding% 
- 'start)
-
-;;What quadding for section sub-titles?
-(define %section-subtitle-quadding%
- 'start)
-
-;;What quadding for article title?
-(define %article-title-quadding% 
- 'center)
-
-;;What quadding for article sub-titles?
-(define %article-subtitle-quadding%
- 'center)
-
-;;What quadding for division subtitles?
-(define %division-subtitle-quadding% 
-  'start)
-
-;;What quadding for component subtitles?
-(define %component-subtitle-quadding% 
-  'start)
-
-
-
-
-;;======================================
-;;Paper Options
-;;======================================
-
-;;What size paper do you need? A4, USletter, USlandscape, or RedHat?
-(define %paper-type%
- "A4")
-
-;;Now define those paper types' width
-(define %page-width%
- (case %paper-type%
-    (("A4") 210mm)
-    (("USletter") 8.5in)
-    (("USlandscape") 11in)))
-
-;;Now define those paper types' height
-(define %page-height%
- (case %paper-type%
-    (("A4") 297mm)
-    (("USletter") 11in)
-    (("USlandscape") 8.5in)))
-
-;;======================================
-;;Functions
-;;======================================
-
-(define (OLSTEP)
-  (case
-   (modulo (length (hierarchical-number-recursive "ORDEREDLIST")) 4)
-	((1) 1.2em)
-	((2) 1.2em)
-	((3) 1.6em)
-	((0) 1.4em)))
-
-(define (ILSTEP) 1.0em)
-
-(define (PROCSTEP ilvl)
-  (if (> ilvl 1) 1.8em 1.4em))
-
-(define (PROCWID ilvl)
-  (if (> ilvl 1) 1.8em 1.4em))
-
-
-(define ($comptitle$)
-  (make paragraph
-	font-family-name: %title-font-family%
-	font-weight: 'bold
-	font-size: (HSIZE 2)
-	line-spacing: (* (HSIZE 2) %line-spacing-factor%)
-	space-before: (* (HSIZE 2) %head-before-factor%)
-	space-after: (* (HSIZE 2) %head-after-factor%)
-	start-indent: 0pt
-	first-line-start-indent: 0pt
-	quadding: 'start
-	keep-with-next?: #t
-	(process-children-trim)))
-
-;;Callouts are confusing in Postscript... fix them.
-(define %callout-fancy-bug% 
- #f)
-
-
-;;By default perils are centered and dropped into a box with a really
-;;big border - I have simply decreased the border thickness -
-;;unfortunately it takes all this to do it - sigh.
-(define ($peril$)
-  (let* ((title     (select-elements 
-		     (children (current-node)) (normalize "title")))
-	 (has-title (not (node-list-empty? title)))
-	 (adm-title (if has-title 
-			(make sequence
-			  (with-mode title-sosofo-mode
-			    (process-node-list (node-list-first title))))
-			(literal
-			 (gentext-element-name 
-			  (current-node)))))
-	 (hs (HSIZE 2)))
-  (if %admon-graphics%
-      ($graphical-admonition$)
-      (make display-group
-	space-before: %block-sep%
-	space-after: %block-sep%
-	font-family-name: %admon-font-family%
-	font-size: (- %bf-size% 1pt)
-	font-weight: 'medium
-	font-posture: 'upright
-	line-spacing: (* (- %bf-size% 1pt) %line-spacing-factor%)
-	(make box
-	  display?: #t
-	  box-type: 'border
-	  line-thickness: .5pt
-	  start-indent: (+ (inherited-start-indent) (* 2 (ILSTEP)) 2pt)
-	  end-indent: (inherited-end-indent)
-	  (make paragraph
-	    space-before: %para-sep%
-	    space-after: %para-sep%
-	    start-indent: 1em
-	    end-indent: 1em
-	    font-family-name: %title-font-family%
-	    font-weight: 'bold
-	    font-size: hs
-	    line-spacing: (* hs %line-spacing-factor%)
-	    quadding: 'center
-	    keep-with-next?: #t
-	    adm-title)
-	  (process-children))))))
-
-
-;;======================================
-;;Non-printing Elements
-;;======================================
-(element TITLEABBREV (empty-sosofo))
-(element SUBTITLE (empty-sosofo))
-(element SETINFO (empty-sosofo))
-(element BOOKINFO (empty-sosofo))
-(element BIBLIOENTRY (empty-sosofo))
-(element BIBLIOMISC (empty-sosofo))
-(element BOOKBIBLIO (empty-sosofo))
-(element SERIESINFO (empty-sosofo))
-(element DOCINFO (empty-sosofo))
-(element ARTHEADER (empty-sosofo))
-(element ADDRESS (empty-sosofo))
-
-;;Show comment element?
-(define %show-comments%
-  #t)
-
-;;Redefine comment for LSB
-(element comment
-  (if %show-comments%
-      (make paragraph
-	start-indent: 0pt
-	first-line-start-indent: -10pt
-	font-posture: 'italic
-	font-size: (* (inherited-font-size) 0.9)
-	(make sequence
-	  (make line-field 
-	    field-width: 10pt
-	    quadding: 'center
-	    (literal "BEGIN RATIONALE:   "))
-	  (process-children))
-	(literal "END RATIONALE:   "))
-      (empty-sosofo)))
-
-;; In DocBook V4.0 comment became remark
-(element remark
-  (if %show-comments%
-      (make paragraph
-	start-indent: 0pt
-	first-line-start-indent: -10pt
-	font-posture: 'italic
-	font-size: (* (inherited-font-size) 0.9)
-	(make sequence
-	  (make line-field 
-	    field-width: 10pt
-	    quadding: 'center
-	    (literal "BEGIN RATIONALE:   "))
-	  (process-children))
-	(literal "END RATIONALE:   "))
-      (empty-sosofo)))
-
-;;======================================
-;;Formalpara titles
-;;======================================
-
-
-;;Change the way Formal Paragraph titles are displayed. The commented
-;;out section will run the titles in the paragraphs. 
-(element (formalpara title)
-  ;(make sequence
-  ;font-weight: 'bold
-  ;($runinhead$))
-  ($lowtitle$ 5))
-
-;;======================================
-;;Inlines
-;;======================================
-
-(element application ($mono-seq$))
-(element command ($bold-seq$))
-(element filename ($mono-seq$))
-(element function ($mono-seq$))
-(element guibutton ($bold-seq$))
-(element guiicon ($bold-seq$))
-(element guilabel ($italic-seq$))
-(element guimenu ($bold-seq$))
-(element guimenuitem ($bold-seq$))
-(element hardware ($bold-mono-seq$))
-(element keycap ($bold-seq$))
-(element literal ($mono-seq$))
-(element parameter ($italic-mono-seq$))
-(element prompt ($mono-seq$))
-(element symbol ($charseq$))
-(element emphasis ($italic-seq$))
-
-</style-specification-body>
-</style-specification>
-
-
-<!-- 
-;;===========================================================================
-;;                                HTML
-;;===========================================================================
--->
-
-<style-specification id="html" use="docbook">
-<style-specification-body> 
-
-;; this is necessary because right now jadetex does not understand
-;; symbolic entities, whereas things work well with numeric entities.
-(declare-characteristic preserve-sdata?
-          "UNREGISTERED::James Clark//Characteristic::preserve-sdata?"
-          #f)
-
-
-;;=========================
-;;Header HTML 4.0.1
-;;=========================
-
-(define %html-pubid% "-//W3C//DTD HTML 4.01//EN")
-
-;;=========================
-;;Common Stuff
-;;=========================
-
-;;Should there be a link to the legalnotice?
-(define %generate-legalnotice-link%
-  #t)
-
-;;What graphics extensions allowed?
-(define %graphic-extensions% 
-'("gif" "png" "jpg" "jpeg" "tif" "tiff" "eps" "epsf" ))
-
-;;What is the default extension for images?
-(define %graphic-default-extension% "png")
-
-;;Use element ids as filenames?
-(define %use-id-as-filename%
- #t)
-
-
-;;=========================
-;;Book Stuff
-;;=========================
-
-;;Do you want a TOC for Books?
-(define %generate-book-toc% 
-  #t)
-
-;;What depth should the TOC generate?
-;;!Only top level of appendixes!
-(define (toc-depth nd)
-  (if (string=? (gi nd) (normalize "book"))
-      3
-      (if (string=? (gi nd) (normalize "appendix"))
-        0
-        1)))
-
-;;What elements should have an LOT?
-(define ($generate-book-lot-list$)
-  (list (normalize "equation")))
-
-;;Do you want a title page for your Book?
-(define %generate-book-titlepage%
-#t)
-
-;;=========================
-;;Part Stuff
-;;=========================
-
-;;Should parts have TOCs?
-(define %generate-part-toc% 
-  #t)
-
-;;Should part TOCs be on their titlepages?
-(define %generate-part-toc-on-titlepage%
-  #t)
-
-;;Do you want a title page for your part?
-(define %generate-part-titlepage% 
-  #t)
-
-;;Should the Part intro be on the part title page?
-(define %generate-partintro-on-titlepage%
- #t)
-
-(define %para-autolabel%
- #t)
-
-;;========================
-;;Chapter Stuff
-;;=======================
-
-;;No TOCs in Chapters
-(define $generate-chapter-toc$
- (lambda ()
-    #f))
-
-;;=========================
-;;Navigation
-;;=========================
-
-;;Should there be navigation at top?
-(define %header-navigation%
- #t)
-
-;;Should there be navigation at bottom?
-(define %footer-navigation%
-  #t)
-
-;;Use tables to create the navigation?
-(define %gentext-nav-use-tables%
- #t)
-
-;;If tables are used for navigation, 
-;;how wide should they be? 
-(define %gentext-nav-tblwidth% 
-"100%")
-
-;;Add arrows to navigation (comment these 
-;;out if you want admon graphics here)
-(define (gentext-en-nav-prev prev) 
-  (make sequence (literal "<<< Previous")))
-
-;;Add arrows to navigation (comment these 
-;;out if you want admon graphics here)
-(define (gentext-en-nav-next next)
-  (make sequence (literal "Next >>>")))
-
-
-;;=========================
-;;Tables and Lists
-;;=========================
-
-;;Should Variable lists be tables?
-(define %always-format-variablelist-as-table%
- #f)
-
-;;What is the length of the 'Term' in a variablelist?
-(define %default-variablelist-termlength%
-  20)
-
-;;When true | If the terms are shorter than 
-;;the termlength above then the variablelist 
-;;will be formatted as a table.
-(define %may-format-variablelist-as-table%
-#f)
-
-;;This overrides the tgroup definition 
-;;(copied from 1.20, dbtable.dsl).
-;;It changes the table background color, 
-;;cell spacing and cell padding.
-;;This is based on gtk-doc additions - thanks!
-
-(element tgroup
-  (let* ((wrapper   (parent (current-node)))
-	 (frameattr (attribute-string (normalize "frame") wrapper))
-	 (pgwide    (attribute-string (normalize "pgwide") wrapper))
-	 (footnotes (select-elements (descendants (current-node)) 
-				     (normalize "footnote")))
-	 (border (if (equal? frameattr (normalize "none"))
-		     '(("BORDER" "0"))
-		     '(("BORDER" "1"))))
-	 (bgcolor '(("BGCOLOR" "#E0E0E0")))
-	 (width (if (equal? pgwide "1")
-		    (list (list "WIDTH" ($table-width$)))
-		    '()))
-	 (head (select-elements (children (current-node)) (normalize "thead")))
-	 (body (select-elements (children (current-node)) (normalize "tbody")))
-	 (feet (select-elements (children (current-node)) (normalize "tfoot"))))
-    (make element gi: "TABLE"
-	  attributes: (append
-		       border
-		       width
-		       bgcolor
-		       '(("CELLSPACING" "0"))
-		       '(("CELLPADDING" "4"))
-		       (if %cals-table-class%
-			   (list (list "CLASS" %cals-table-class%))
-			   '()))
-	  (process-node-list head)
-	  (process-node-list body)
-	  (process-node-list feet)
-	  (make-table-endnotes))))
-
-;;===================
-;; Admon Graphics
-;;===================
-
-;;Should Admon Graphics be used?
-(define %admon-graphics%
-  #t)
-
-;;Where are those admon graphics?
-(define %admon-graphics-path%
-  "./stylesheet-images/")
-
-;;Given an admonition node, returns the 
-;;name of the graphic that should
-;;be used for that admonition.
-;;Define admon graphics usage
-;;NOTE these will change to pngs 
-;;soon in the GDP when Tigert gets 
-;;the time to make special ones for us!
-(define ($admon-graphic$ #!optional (nd (current-node)))
-  (cond ((equal? (gi nd) (normalize "tip"))
-	 (string-append %admon-graphics-path% "tip.gif"))
-	((equal? (gi nd) (normalize "note"))
-	 (string-append %admon-graphics-path% "note.gif"))
-	((equal? (gi nd) (normalize "important"))
-	 (string-append %admon-graphics-path% "important.gif"))
-	((equal? (gi nd) (normalize "caution"))
-	 (string-append %admon-graphics-path% "caution.gif"))
-	((equal? (gi nd) (normalize "warning"))
-	 (string-append %admon-graphics-path% "warning.gif"))
-	(else (error (string-append (gi nd) " is not an admonition.")))))
-
-;;Given an admonition node, returns 
-;;the width of the graphic that will
-;;be used for that admonition.
-(define ($admon-graphic-width$ #!optional (nd (current-node)))
-  "25")
-
-;;=========================
-;;Labels
-;;=========================
-
-;;Enumerate Chapters?
-(define %chapter-autolabel% 
- #f)
-
-;;Enumerate Sections?
-(define %section-autolabel%
- #f)
-
-;;=========================
-;;    HTML Attributes
-;;=========================
-
-;;What attributes should be hung off 
-;;of 'body'?
-(define %body-attr%
- (list
-   (list "BGCOLOR" "#FFFFFF")
-   (list "TEXT" "#000000")
-   (list "LINK" "#0000FF")
-   (list "VLINK" "#840084")
-   (list "ALINK" "#0000FF")))
-
-;;Default extension for filenames?
-(define %html-ext% 
-  ".html")
-
-;;Use a CSS stylesheet?
-;;Which one? Should work on 
-;;this one soon
-;(define %stylesheet% 
-;        "./gnome.css")
-
-;;Use it
-;(define %stylesheet-type% 
-;"text/css")
-
-
-;;========================
-;;Title Pages for Books
-;;=======================
-
-(define (book-titlepage-recto-elements)
-  (list (normalize "title")
-	(normalize "subtitle")
-	(normalize "corpauthor")
-	(normalize "authorgroup")
-	(normalize "author")
-	(normalize "orgname")
-	(normalize "graphic")
-	(normalize "copyright")
-	(normalize "legalnotice")
-	(normalize "releaseinfo")
-	(normalize "publisher")
-	(normalize "isbn")))
-
-;;========================
-;;Title Pages for Articles
-;;========================
-
-;;Should Articles have a TOC?
-(define %generate-article-toc% 
-  #t)
-
-;;Which elements should appear 
-;;on title page?
-(define (article-titlepage-recto-elements)
-  (list (normalize "title")
-	(normalize "subtitle")
-        (normalize "authorgroup")
-        (normalize "copyright")
-        (normalize "legalnotice")
-        (normalize "abstract")))
-
-;;How should elements on title page look?
-(mode article-titlepage-recto-mode
-
-;;Author name is too big - change it!
-  (element author
-    (let ((author-name  (author-string))
-	  (author-affil (select-elements (children (current-node)) 
-					 (normalize "affiliation"))))
-      (make sequence      
-	(make element gi: "H4"
-	      attributes: (list (list "CLASS" (gi)))
-	      (make element gi: "A"
-		    attributes: (list (list "NAME" (element-id)))
-		    (literal author-name)))
-	(process-node-list author-affil))))
-
-;;Address?
-  (element address 
-    (make sequence
-      (make element gi: "DIV"
-            attributes: (list (list "CLASS" (gi)))
-            (process-children))))
-
-;;Get rid of spam-producing "mailto" links
-;;and get rid of email indentation  
-  (element email
-    (make sequence
-      (make element gi: "DIV"
-            attributes: (list (list "CLASS" (gi)))
-            (process-children))))
-
-;;Point Abstract to custom table function 
-;;(See $dcm-abstract-object$ below. For default
-;;use $semiformal-object$
-  (element abstract
-    (make element gi: "DIV"
-          ($dcm-abstract-object$)))
-
-  (element (abstract title) (empty-sosofo))
-
-;;subtitle sizing
-(element subtitle 
-  (make element gi: "H4"
-        attributes: (list (list "CLASS" (gi)))
-        (process-children-trim))))
-
-;;=================
-;;    INLINES
-;;=================
-
-;Define my own series of fonts for various elements
-(element application ($mono-seq$))
-(element command ($bold-seq$))
-(element filename ($mono-seq$))
-(element function ($mono-seq$))
-(element guibutton ($bold-seq$))
-(element guiicon ($bold-seq$))
-(element guilabel ($bold-mono-seq$))
-(element guimenu ($bold-seq$))
-(element guimenuitem ($bold-seq$))
-(element guisubmenu ($bold-seq$))
-(element hardware ($bold-mono-seq$))
-(element keycap ($bold-seq$))
-(element literal ($mono-seq$))
-(element parameter ($italic-mono-seq$))
-(element prompt ($mono-seq$))
-(element symbol ($charseq$))
-(element emphasis ($italic-seq$))
-
-;;Show comment element?
-(define %show-comments%
-  #t)
-
-;;Redefine comment element for LSB
-(element comment
-  (if %show-comments%
-      (make element gi: "TABLE"
-	    attributes: ($shade-verbatim-attr$)
-	    (make element gi: "TR"
-		  (make element gi: "TD"
-			(literal "RATIONALE:")
-			(make element gi: "P"
-			      (process-children)))))
-      (empty-sosofo)))
-
-;;In DocBook V4.0 comment became remark
-(element remark
-  (if %show-comments%
-      (make element gi: "TABLE"
-	    attributes: ($shade-verbatim-attr$)
-	    (make element gi: "TR"
-		  (make element gi: "TD"
-			(literal "RATIONALE:")
-			(make element gi: "P"
-			      (process-children)))))
-      (empty-sosofo)))
-
-;;====================
-;; General Formatting
-;;====================
-
-;;Formal Paras are ugly by default!
-;;Make the title run in - otherwise 
-;;you should use a sect!
-(element formalpara
-  (make element gi: "DIV"
-	attributes: (list
-		     (list "CLASS" (gi)))
-  	(make element gi: "P"
-	      (process-children))))
-
-;;This is the old one 
-;(element (formalpara title) 
-;($lowtitle$ 5))
-
-;;This is the new one
-(element (formalpara title) 
-  (make element gi: "B"
-	($runinhead$)))
-
-;;Make captions come after objects in the list
-(define ($object-titles-after$)
-  (list (normalize "figure")))
-
-
-;; Handle qanda labelling with Q: A:
-(define (qanda-defaultlabel)
-  (normalize "qanda"))
-
-;;From FreeBSD Sheets (Thanks!) Display Q and A in bigger bolder fonts
-
-(element question
-  (let* ((chlist   (children (current-node)))
-	 (firstch  (node-list-first chlist))
-	 (restch   (node-list-rest chlist)))
-    (make element gi: "DIV"
-	  attributes: (list (list "CLASS" (gi)))
-	  (make element gi: "P" 
-		(make element gi: "BIG"
-		      (make element gi: "A"
-			    attributes: (list
-					 (list "NAME" (element-id)))
-			    (empty-sosofo))
-		      (make element gi: "B"
-			    (literal (question-answer-label
-				      (current-node)) " ")
-			    (process-node-list (children firstch)))))
-	  (process-node-list restch))))
-
-;;Literal Elements
-
-;;Indent Literal layouts?
-(define %indent-literallayout-lines% 
-  #f)
-
-;;Indent Programlistings?
-(define %indent-programlisting-lines%
-  #f)
-
-;;Number lines in Programlistings?
-(define %number-programlisting-lines%
- #f)
-
-;;Should verbatim items be 'shaded' with a table?
-(define %shade-verbatim% 
- #t)
-
-;;Define shade-verbatim attributes
-(define ($shade-verbatim-attr$)
- (list
-  (list "BORDER" "0")
-  (list "BGCOLOR" "#E0E0E0")
-  (list "WIDTH" ($table-width$))))
-
-;;===================
-;;    Entities
-;;===================
-
-;;Netscape doesn't handle trademark 
-;;entity right at all!! Get rid of it.
-;;Make a TM in a superscipt font.
-(element trademark
-  (make sequence
-    (process-children)
-    (make element gi: "sup"
-    (literal "TM"))))
-
-
-;;===================
-;; New Definitions
-;;==================
-
-(define ($dcm-abstract-object$)
-   (make element gi: "TABLE"
-        attributes: '(("BORDER" "0")
-                      ("BGCOLOR" "#E0E0E0")
-                      ("WIDTH" "50%")
-                      ("CELLSPACING" "0")
-                      ("CELLPADDING" "0")
-                      ("ALIGN" "CENTER"))
-        (make element gi: "TR"
-              (make element gi: "TD"
-                    attributes: '(("VALIGN" "TOP"))
-                    (make element gi: "B"
-                    (literal "Abstract"))))
-        (make element gi: "TR"
-              (make element gi: "TD"
-                    attributes: '(("VALIGN" "TOP"))
-                    (process-children)))))
-
-;;Redefine Titlepage Separator on Articles
-
-(define (article-titlepage-separator side)
-  (make empty-element gi: "HR"
-  attributes: '(("WIDTH" "75%")
-                 ("ALIGN" "CENTER")
-                 ("COLOR" "#000000")
-                 ("SIZE" "1"))))
-
-
-
-
-(define (chunk-element-list)
-  (list (normalize "preface")
-	(normalize "chapter")
-	(normalize "appendix") 
-	(normalize "article")
-	(normalize "glossary")
-	(normalize "bibliography")
-	(normalize "index")
-	(normalize "colophon")
-	(normalize "setindex")
-	(normalize "reference")
-	(normalize "refentry")
-	(normalize "part")
-	(normalize "sect1") 
-	(normalize "section") 
-	(normalize "book") ;; just in case nothing else matches...
-	(normalize "set")  ;; sets are definitely chunks...
-	))
-
-;;Do you want Callouts to be graphics?
-(define %callout-graphics%
-#f)
-
-
-;;Make Callout graphics PNGs
-(define %callout-graphics-path%
-  "./imagelib/callouts/")
-
-  ;; Redefine $callout-bug$ to support the %callout-graphic-ext%
-  ;; variable.
-  (define ($callout-bug$ conumber)
-    (let ((number (if conumber (format-number conumber "1") "0")))
-      (if conumber
-          (if %callout-graphics%
-              (if (<= conumber %callout-graphics-number-limit%)
-                  (make empty-element gi: "IMG"
-                        attributes: (list (list "SRC"
-                                                (root-rel-path
-                                                 (string-append
-                                                  %callout-graphics-path%
-                                                  number
-                                                  %callout-graphics-ext%)))
-                                          (list "HSPACE" "0")
-                                          (list "VSPACE" "0")
-                                          (list "BORDER" "0")
-                                          (list "ALT"
-                                                (string-append
-                                                 "(" number ")"))))
-                  (make element gi: "B"
-                        (literal "(" (format-number conumber "1") ")")))
-              (make element gi: "B"
-                    (literal "(" (format-number conumber "1") ")")))
-          (make element gi: "B"
-         (literal "(??)")))))
-
-</style-specification-body>
-</style-specification>
-
-<external-specification id="docbook" document="docbook.dsl">
-
-</style-sheet>
diff -r ba4b50f63658 -r bc28c3bc3769 docs/basic09/makefile
--- a/docs/basic09/makefile	Thu Apr 24 01:24:07 2003 +0000
+++ b/docs/basic09/makefile	Sun Apr 27 19:41:14 2003 +0000
@@ -1,5 +1,5 @@
 BOOK		= basic09
-STYLESHEET	= docbook-utils-a4.dsl
+STYLESHEET	= ../stylesheets/docbook-utils.dsl
 
 all: $(BOOK).pdf
 
@@ -9,8 +9,8 @@
 $(BOOK).ps: $(BOOK).docbook $(STYLESHEET)
 	 docbook2ps -d $(STYLESHEET)#print $(BOOK).docbook
 
-$(BOOK).htm: $(BOOK).docbook $(STYLESHEET)
-	$(RM) *.htm *.html
+$(BOOK).html: $(BOOK).docbook $(STYLESHEET)
+	$(RM) *.html
 #	jade -t sgml -V html-index -d /usr/share/sgml/docbook/dsssl-stylesheets-1.64/html/docbook.dsl $(BOOK).docbook
 #	collateindex.pl -p -o index.docbook HTML.index
 	docbook2html -d $(STYLESHEET)#html $(BOOK).docbook
@@ -19,4 +19,4 @@
 	psnup -2 $(BOOK).ps | lpr
 
 clean:
-	$(RM) *.html *.htm $(BOOK).pdf $(BOOK).ps
+	$(RM) *.html $(BOOK).pdf $(BOOK).ps
diff -r ba4b50f63658 -r bc28c3bc3769 docs/ccguide/ccguide.docbook
--- a/docs/ccguide/ccguide.docbook	Thu Apr 24 01:24:07 2003 +0000
+++ b/docs/ccguide/ccguide.docbook	Sun Apr 27 19:41:14 2003 +0000
@@ -82,7 +82,7 @@
   <!ENTITY toupperref    SYSTEM "toupper.refentry">
   <!ENTITY ungetcref     SYSTEM "ungetc.refentry">
  ]>
-<book id="cc-guide" lang="en">
+<book id="ccguide" lang="en">
 <bookinfo>
  <title>Microware C Compiler User's Guide</title>
  <subtitle>for OS-9</subtitle>
diff -r ba4b50f63658 -r bc28c3bc3769 docs/ccguide/docbook-utils-a4.dsl
--- a/docs/ccguide/docbook-utils-a4.dsl	Thu Apr 24 01:24:07 2003 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,1064 +0,0 @@
-<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
-<!ENTITY % html "IGNORE">
-<![%html;[
-<!ENTITY % print "IGNORE">
-<!ENTITY docbook.dsl PUBLIC "-//Norman Walsh//DOCUMENT DocBook HTML Stylesheet//EN" CDATA dsssl>
-]]>
-<!ENTITY % print "INCLUDE">
-<![%print;[
-<!ENTITY docbook.dsl PUBLIC "-//Norman Walsh//DOCUMENT DocBook Print Stylesheet//EN" CDATA dsssl>
-]]>
-]>
-
-<!--
-;;#######################################################################
-;;#                                                                     #
-;;#                 The GNOME Documentation Project's                   #
-;;#                  Custion DocBook Stylesheet Layer                   #
-;;#                    by Dave Mason dcm@redhat.com                     #
-;;#            Based on Norman Walsh's Modular Stylesheets              #
-;;#                                                                     #
-;;#            This is intended as a drop-in replacement for            #
-;;#            the cygnus-both.dsl file in DocBook Tools.               #
-;;#           Just copy it to the location dbtools created              #
-;;#                   and rename it cygnus-both.dsl                     #
-;;#                                                                     #
-;;#                       This is Version 1.0-4                         #
-;;#                  patched to fix RTF output (#49677)                 #
-;;#                patched to work with docbook-dsssl-1.72              #
-;;#                 patched for ADDRESS output (#50605)                 #
-;;#                      removed comment and remark                     #
-;;#                      disabled use-id-as-filename                    #
-;;#######################################################################
--->
-
-<style-sheet>
-
-
-<style-specification id="print" use="docbook">
-<style-specification-body> 
-
-;;==========================================================================
-;;                               PRINT
-;;==========================================================================
-
-;;======================================
-;;General Options
-;;======================================
-
-;;Do you want to print on both sides of the paper?
-(define %two-side% 
- #t)
-
-;;Do you want enumerated sections? (E.g, 1.1, 1.1.1, 1.2, etc.)
-(define %section-autolabel% 
- #t)
-
-;;What is the default extension for graphics?
-(define %graphic-default-extension% 
-  "eps")
-
-;;Show URL links? If the text of the link and the URL are identical,
-;;the parenthetical URL is suppressed.
-(define %show-ulinks%
- #t)
-
-;Make Ulinks footnotes to stop bleeding in the edges - this increases
-;'jade --> print' time tremendously keep this in mind before
-;complaining!
-(define %footnote-ulinks%
-  #t)
-
-;;Tex Backend on
-(define tex-backend 
- #t)
-
-;;Define Line Spacing
-(define %line-spacing-factor% 1.1)
-
-;;Define the Paragraph Style
-(define para-style
-  (style
-   font-size: %bf-size%
-   font-weight: 'medium
-   font-posture: 'upright
-   font-family-name: %body-font-family%
-   line-spacing: (* %bf-size% %line-spacing-factor%)))
-
-(define ($object-titles-after$)
-  (list (normalize "figure")))
-
-;;======================================
-;;Book Options
-;;======================================
-
-
-;;Do you want a title page for a Book?
-(define %generate-book-titlepage%
- #t)
-
-;;Do you want a separate page for the title?
-(define %generate-book-titlepage-on-separate-page%
- #t)
-
-;;Generate Book TOC?
-(define %generate-book-toc% 
- #t)
-
-;;What depth should the TOC generate?
-;;!Only top level of appendixes!
-(define (toc-depth nd)
-  (if (string=? (gi nd) (normalize "book"))
-      3
-      (if (string=? (gi nd) (normalize "appendix"))
-        0
-        1)))
-
-;;Do you want a TOC for the element part?
-(define %generate-part-toc% 
- #f)
-
-;;Do you want the part toc on the part titlepage or separate?
-(define %generate-part-toc-on-titlepage%
- #t)
-
-;;Generate Part Title Page?
-(define %generate-part-titlepage% 
-  #f)
-
-;;Do you want the Part intro on the part title page?
-(define %generate-partintro-on-titlepage%
-  #t)
-
-;;What elements should have a LOT?
-(define ($generate-book-lot-list$)
-  (list (normalize "equation")))
-
-;;Do you want chapters enumerated?
-(define %chapter-autolabel% 
- #t)
-
-;;Do you want Chapter's and Appendix's 
-;;to have automatic labels?
-(define %chap-app-running-head-autolabel% 
-  #t)
-
-
-;;======================================
-;;Article Options
-;;======================================
-
-;;Do you want a title page for an Article?
-(define %generate-article-titlepage%
- #t)
-
-;;Generate Article TOC?
-(define %generate-article-toc% 
- #t)
-
-;;Do you want a separate page for the title?
-(define %generate-article-titlepage-on-separate-page%
- #t)
-
-;;Do you want the article toc on the titlepage or separate?
-(define %generate-article-toc-on-titlepage%
- #t)
-
-;;Do you want to start new page numbers with each article?
-(define %article-page-number-restart%
- #f)
-
-;;Titlepage Separate?
-(define (chunk-skip-first-element-list)
-  '())
-
-;;Titlepage Not Separate
-;(define (chunk-skip-first-element-list)
-;  (list (normalize "sect1")
-;	(normalize "section")))
-
-;;======================================
-;;Columns
-;;======================================
-
-;;How many columns do you want?
-(define %page-n-columns%
- 1)
-
-;;How much space between columns?
-(define %page-column-sep%
- 0.2in)
-
-;;How many Columns on the titlepage?
-(define %titlepage-n-columns%
-  1)
-
-;;Balance columns?
-(define %page-balance-colums%
-#t)
-
-;;======================================
-;;Fonts
-;;======================================
-
-;;Defines the general size of the text in the document. normal(10),
-;;presbyopic(12), and large-type(24). 
-(define %visual-acuity%
- "normal")
-
-;;What font would you like for titles?
-(define %title-font-family% 
-  "Helvetica")
-
-;;What font would you like for the body?
-(define %body-font-family% 
- "Palatino")
-
-;;What font would you like for mono-seq?
-(define %mono-font-family% 
- "Courier New")
-
-;;If the base fontsize is 10pt, and '%hsize-bump-factor%' is
-;; 1.2, hsize 1 is 12pt, hsize 2 is 14.4pt, hsize 3 is 17.28pt, etc
-(define %hsize-bump-factor% 
- 1.1)
-
-;;What size do you want the body fonts?
-(define %bf-size%
- (case %visual-acuity%
-    (("tiny") 8pt)
-    (("normal") 10pt)
-    (("presbyopic") 12pt)
-    (("large-type") 24pt)))
-
-(define-unit em %bf-size%)
-
-;;======================================
-;;Margins
-;;======================================
-
-(define %left-right-margin% 6pi)
-
-;;How much indentation for the body?
-(define %body-start-indent% 
- 4pi)
-
-;;How big is the left margin? (relative to physical page)
-(define %left-margin% 
- 8pi) ;white-paper-column
-
-;;How big is the right margin? (relative to physical page)
-(define %right-margin% 
- 8pi) ;white-paper-column
-
-;;How big do you want the margin at the top?
-(define %top-margin%
-(if (equal? %visual-acuity% "large-type")
-      7.5pi
-      6pi))
-
-;;How big do you want the margin at the bottom?
-(define %bottom-margin% 
- (if (equal? %visual-acuity% "large-type")
-      7.5pi 
-      5pi))
-
-;;Define the text width. (Change the elements in the formula rather
-;;than the formula itself)
-;(define %text-width% (- %page-width% (* %left-right-margin% 2)))
-(define %text-width%  (- %page-width% (+ %left-margin% %right-margin%)))
-
-;;Define the body width. (Change the elements in the formula rather
-;;than the formula itself)
-(define %body-width% 
- (- %text-width% %body-start-indent%))
-
-;;Define distance between paragraphs
-(define %para-sep% 
- (/ %bf-size% 2.0))
-
-;;Define distance between block elements (figures, tables, etc.).
-(define %block-sep% 
- (* %para-sep% 2.0))
-
-;;Indent block elements?
-(define %block-start-indent% 
-  0pt)
-;0pt
-
-;;======================================
-;;Admon Graphics
-;;======================================
-
-;;Do you want admon graohics on?
-(define %admon-graphics%
- #f)
-
-;;Where are the admon graphics?
-(define %admon-graphics-path%
- "../images/")
-
-;;======================================
-;;Quadding
-;;======================================
-
-;;What quadding do you want by default; start, center, justify, or end?
-(define %default-quadding%
- 'justify)
-
-;;What quadding for component titles(Chapter, Appendix, etc)?
-(define %component-title-quadding% 
- 'start)
-
-;;What quadding for section titles?
-(define %section-title-quadding% 
- 'start)
-
-;;What quadding for section sub-titles?
-(define %section-subtitle-quadding%
- 'start)
-
-;;What quadding for article title?
-(define %article-title-quadding% 
- 'center)
-
-;;What quadding for article sub-titles?
-(define %article-subtitle-quadding%
- 'center)
-
-;;What quadding for division subtitles?
-(define %division-subtitle-quadding% 
-  'start)
-
-;;What quadding for component subtitles?
-(define %component-subtitle-quadding% 
-  'start)
-
-
-
-
-;;======================================
-;;Paper Options
-;;======================================
-
-;;What size paper do you need? A4, USletter, USlandscape, or RedHat?
-(define %paper-type%
- "A4")
-
-;;Now define those paper types' width
-(define %page-width%
- (case %paper-type%
-    (("A4") 210mm)
-    (("USletter") 8.5in)
-    (("USlandscape") 11in)))
-
-;;Now define those paper types' height
-(define %page-height%
- (case %paper-type%
-    (("A4") 297mm)
-    (("USletter") 11in)
-    (("USlandscape") 8.5in)))
-
-;;======================================
-;;Functions
-;;======================================
-
-(define (OLSTEP)
-  (case
-   (modulo (length (hierarchical-number-recursive "ORDEREDLIST")) 4)
-	((1) 1.2em)
-	((2) 1.2em)
-	((3) 1.6em)
-	((0) 1.4em)))
-
-(define (ILSTEP) 1.0em)
-
-(define (PROCSTEP ilvl)
-  (if (> ilvl 1) 1.8em 1.4em))
-
-(define (PROCWID ilvl)
-  (if (> ilvl 1) 1.8em 1.4em))
-
-
-(define ($comptitle$)
-  (make paragraph
-	font-family-name: %title-font-family%
-	font-weight: 'bold
-	font-size: (HSIZE 2)
-	line-spacing: (* (HSIZE 2) %line-spacing-factor%)
-	space-before: (* (HSIZE 2) %head-before-factor%)
-	space-after: (* (HSIZE 2) %head-after-factor%)
-	start-indent: 0pt
-	first-line-start-indent: 0pt
-	quadding: 'start
-	keep-with-next?: #t
-	(process-children-trim)))
-
-;;Callouts are confusing in Postscript... fix them.
-(define %callout-fancy-bug% 
- #f)
-
-
-;;By default perils are centered and dropped into a box with a really
-;;big border - I have simply decreased the border thickness -
-;;unfortunately it takes all this to do it - sigh.
-(define ($peril$)
-  (let* ((title     (select-elements 
-		     (children (current-node)) (normalize "title")))
-	 (has-title (not (node-list-empty? title)))
-	 (adm-title (if has-title 
-			(make sequence
-			  (with-mode title-sosofo-mode
-			    (process-node-list (node-list-first title))))
-			(literal
-			 (gentext-element-name 
-			  (current-node)))))
-	 (hs (HSIZE 2)))
-  (if %admon-graphics%
-      ($graphical-admonition$)
-      (make display-group
-	space-before: %block-sep%
-	space-after: %block-sep%
-	font-family-name: %admon-font-family%
-	font-size: (- %bf-size% 1pt)
-	font-weight: 'medium
-	font-posture: 'upright
-	line-spacing: (* (- %bf-size% 1pt) %line-spacing-factor%)
-	(make box
-	  display?: #t
-	  box-type: 'border
-	  line-thickness: .5pt
-	  start-indent: (+ (inherited-start-indent) (* 2 (ILSTEP)) 2pt)
-	  end-indent: (inherited-end-indent)
-	  (make paragraph
-	    space-before: %para-sep%
-	    space-after: %para-sep%
-	    start-indent: 1em
-	    end-indent: 1em
-	    font-family-name: %title-font-family%
-	    font-weight: 'bold
-	    font-size: hs
-	    line-spacing: (* hs %line-spacing-factor%)
-	    quadding: 'center
-	    keep-with-next?: #t
-	    adm-title)
-	  (process-children))))))
-
-
-;;======================================
-;;Non-printing Elements
-;;======================================
-(element TITLEABBREV (empty-sosofo))
-(element SUBTITLE (empty-sosofo))
-(element SETINFO (empty-sosofo))
-(element BOOKINFO (empty-sosofo))
-(element BIBLIOENTRY (empty-sosofo))
-(element BIBLIOMISC (empty-sosofo))
-(element BOOKBIBLIO (empty-sosofo))
-(element SERIESINFO (empty-sosofo))
-(element DOCINFO (empty-sosofo))
-(element ARTHEADER (empty-sosofo))
-;;(element ADDRESS (empty-sosofo))
-
-;;Show comment element?
-(define %show-comments%
-  #t)
-
-;;======================================
-;;Formalpara titles
-;;======================================
-
-
-;;Change the way Formal Paragraph titles are displayed. The commented
-;;out section will run the titles in the paragraphs. 
-(element (formalpara title)
-  ;(make sequence
-  ;font-weight: 'bold
-  ;($runinhead$))
-  ($lowtitle$ 5 7))
-
-;;======================================
-;;Inlines
-;;======================================
-
-(element application ($mono-seq$))
-(element command ($bold-seq$))
-(element filename ($mono-seq$))
-(element function ($mono-seq$))
-(element guibutton ($bold-seq$))
-(element guiicon ($bold-seq$))
-(element guilabel ($italic-seq$))
-(element guimenu ($bold-seq$))
-(element guimenuitem ($bold-seq$))
-(element hardware ($bold-mono-seq$))
-(element keycap ($bold-seq$))
-(element literal ($mono-seq$))
-(element parameter ($italic-mono-seq$))
-(element prompt ($mono-seq$))
-(element symbol ($charseq$))
-(element emphasis ($italic-seq$))
-
-</style-specification-body>
-</style-specification>
-
-
-<!-- 
-;;===========================================================================
-;;                                HTML
-;;===========================================================================
--->
-
-<style-specification id="html" use="docbook">
-<style-specification-body> 
-
-;; this is necessary because right now jadetex does not understand
-;; symbolic entities, whereas things work well with numeric entities.
-(declare-characteristic preserve-sdata?
-          "UNREGISTERED::James Clark//Characteristic::preserve-sdata?"
-          #f)
-
-
-;;=========================
-;;Header HTML 4.0.1
-;;=========================
-
-(define %html-pubid% "-//W3C//DTD HTML 4.01//EN")
-
-;;=========================
-;;Common Stuff
-;;=========================
-
-;;Should there be a link to the legalnotice?
-(define %generate-legalnotice-link%
-  #t)
-
-;;What graphics extensions allowed?
-(define %graphic-extensions% 
-'("gif" "png" "jpg" "jpeg" "tif" "tiff" "eps" "epsf" ))
-
-;;What is the default extension for images?
-(define %graphic-default-extension% "png")
-
-;;Use element ids as filenames?
-(define %use-id-as-filename%
- #f)
-
-
-;;=========================
-;;Book Stuff
-;;=========================
-
-;;Do you want a TOC for Books?
-(define %generate-book-toc% 
-  #t)
-
-;;What depth should the TOC generate?
-;;!Only top level of appendixes!
-(define (toc-depth nd)
-  (if (string=? (gi nd) (normalize "book"))
-      3
-      (if (string=? (gi nd) (normalize "appendix"))
-        0
-        1)))
-
-;;What elements should have an LOT?
-(define ($generate-book-lot-list$)
-  (list (normalize "equation")))
-
-;;Do you want a title page for your Book?
-(define %generate-book-titlepage%
-#t)
-
-;;=========================
-;;Part Stuff
-;;=========================
-
-;;Should parts have TOCs?
-(define %generate-part-toc% 
-  #t)
-
-;;Should part TOCs be on their titlepages?
-(define %generate-part-toc-on-titlepage%
-  #t)
-
-;;Do you want a title page for your part?
-(define %generate-part-titlepage% 
-  #t)
-
-;;Should the Part intro be on the part title page?
-(define %generate-partintro-on-titlepage%
- #t)
-
-(define %para-autolabel%
- #t)
-
-;;========================
-;;Chapter Stuff
-;;=======================
-
-;;No TOCs in Chapters
-(define $generate-chapter-toc$
- (lambda ()
-    #f))
-
-;;=========================
-;;Navigation
-;;=========================
-
-;;Should there be navigation at top?
-(define %header-navigation%
- #t)
-
-;;Should there be navigation at bottom?
-(define %footer-navigation%
-  #t)
-
-;;Use tables to create the navigation?
-(define %gentext-nav-use-tables%
- #t)
-
-;;If tables are used for navigation, 
-;;how wide should they be? 
-(define %gentext-nav-tblwidth% 
-"100%")
-
-;;Add arrows to navigation (comment these 
-;;out if you want admon graphics here)
-(define (gentext-en-nav-prev prev) 
-  (make sequence (literal "<<< Previous")))
-
-;;Add arrows to navigation (comment these 
-;;out if you want admon graphics here)
-(define (gentext-en-nav-next next)
-  (make sequence (literal "Next >>>")))
-
-
-;;=========================
-;;Tables and Lists
-;;=========================
-
-;;Should Variable lists be tables?
-(define %always-format-variablelist-as-table%
- #f)
-
-;;What is the length of the 'Term' in a variablelist?
-(define %default-variablelist-termlength%
-  20)
-
-;;When true | If the terms are shorter than 
-;;the termlength above then the variablelist 
-;;will be formatted as a table.
-(define %may-format-variablelist-as-table%
-#f)
-
-;;This overrides the tgroup definition 
-;;(copied from 1.20, dbtable.dsl).
-;;It changes the table background color, 
-;;cell spacing and cell padding.
-;;This is based on gtk-doc additions - thanks!
-
-(element tgroup
-  (let* ((wrapper   (parent (current-node)))
-	 (frameattr (attribute-string (normalize "frame") wrapper))
-	 (pgwide    (attribute-string (normalize "pgwide") wrapper))
-	 (footnotes (select-elements (descendants (current-node)) 
-				     (normalize "footnote")))
-	 (border (if (equal? frameattr (normalize "none"))
-		     '(("BORDER" "0"))
-		     '(("BORDER" "1"))))
-	 (bgcolor '(("BGCOLOR" "#E0E0E0")))
-	 (width (if (equal? pgwide "1")
-		    (list (list "WIDTH" ($table-width$)))
-		    '()))
-	 (head (select-elements (children (current-node)) (normalize "thead")))
-	 (body (select-elements (children (current-node)) (normalize "tbody")))
-	 (feet (select-elements (children (current-node)) (normalize "tfoot"))))
-    (make element gi: "TABLE"
-	  attributes: (append
-		       border
-		       width
-		       bgcolor
-		       '(("CELLSPACING" "0"))
-		       '(("CELLPADDING" "4"))
-		       (if %cals-table-class%
-			   (list (list "CLASS" %cals-table-class%))
-			   '()))
-	  (process-node-list head)
-	  (process-node-list body)
-	  (process-node-list feet)
-	  (make-table-endnotes))))
-
-;;===================
-;; Admon Graphics
-;;===================
-
-;;Should Admon Graphics be used?
-(define %admon-graphics%
-  #t)
-
-;;Where are those admon graphics?
-(define %admon-graphics-path%
-  "./stylesheet-images/")
-
-;;Given an admonition node, returns the 
-;;name of the graphic that should
-;;be used for that admonition.
-;;Define admon graphics usage
-;;NOTE these will change to pngs 
-;;soon in the GDP when Tigert gets 
-;;the time to make special ones for us!
-(define ($admon-graphic$ #!optional (nd (current-node)))
-  (cond ((equal? (gi nd) (normalize "tip"))
-	 (string-append %admon-graphics-path% "tip.gif"))
-	((equal? (gi nd) (normalize "note"))
-	 (string-append %admon-graphics-path% "note.gif"))
-	((equal? (gi nd) (normalize "important"))
-	 (string-append %admon-graphics-path% "important.gif"))
-	((equal? (gi nd) (normalize "caution"))
-	 (string-append %admon-graphics-path% "caution.gif"))
-	((equal? (gi nd) (normalize "warning"))
-	 (string-append %admon-graphics-path% "warning.gif"))
-	(else (error (string-append (gi nd) " is not an admonition.")))))
-
-;;Given an admonition node, returns 
-;;the width of the graphic that will
-;;be used for that admonition.
-(define ($admon-graphic-width$ #!optional (nd (current-node)))
-  "25")
-
-;;=========================
-;;Labels
-;;=========================
-
-;;Enumerate Chapters?
-(define %chapter-autolabel% 
- #t)
-
-;;Enumerate Sections?
-(define %section-autolabel%
- #t)
-
-;;=========================
-;;    HTML Attributes
-;;=========================
-
-;;What attributes should be hung off 
-;;of 'body'?
-(define %body-attr%
- (list
-   (list "BGCOLOR" "#FFFFFF")
-   (list "TEXT" "#000000")
-   (list "LINK" "#0000FF")
-   (list "VLINK" "#840084")
-   (list "ALINK" "#0000FF")))
-
-;;Default extension for filenames?
-(define %html-ext% 
-  ".html")
-
-;;Use a CSS stylesheet?
-;;Which one? Should work on 
-;;this one soon
-;(define %stylesheet% 
-;        "./gnome.css")
-
-;;Use it
-;(define %stylesheet-type% 
-;"text/css")
-
-
-;;========================
-;;Title Pages for Books
-;;=======================
-
-(define (book-titlepage-recto-elements)
-  (list (normalize "title")
-	(normalize "subtitle")
-	(normalize "corpauthor")
-	(normalize "authorgroup")
-	(normalize "author")
-	(normalize "orgname")
-	(normalize "graphic")
-	(normalize "copyright")
-	(normalize "legalnotice")
-	(normalize "releaseinfo")
-	(normalize "publisher")
-	(normalize "isbn")))
-
-;;========================
-;;Title Pages for Articles
-;;========================
-
-;;Should Articles have a TOC?
-(define %generate-article-toc% 
-  #t)
-
-;;Which elements should appear 
-;;on title page?
-(define (article-titlepage-recto-elements)
-  (list (normalize "title")
-	(normalize "subtitle")
-        (normalize "authorgroup")
-        (normalize "copyright")
-        (normalize "legalnotice")
-        (normalize "abstract")))
-
-;;How should elements on title page look?
-(mode article-titlepage-recto-mode
-
-;;Author name is too big - change it!
-  (element author
-    (let ((author-name  (author-string))
-	  (author-affil (select-elements (children (current-node)) 
-					 (normalize "affiliation"))))
-      (make sequence      
-	(make element gi: "H4"
-	      attributes: (list (list "CLASS" (gi)))
-	      (make element gi: "A"
-		    attributes: (list (list "NAME" (element-id)))
-		    (literal author-name)))
-	(process-node-list author-affil))))
-
-;;Address?
-  (element address 
-    (make sequence
-      (make element gi: "DIV"
-            attributes: (list (list "CLASS" (gi)))
-            (process-children))))
-
-;;Get rid of spam-producing "mailto" links
-;;and get rid of email indentation  
-  (element email
-    (make sequence
-      (make element gi: "DIV"
-            attributes: (list (list "CLASS" (gi)))
-            (process-children))))
-
-;;Point Abstract to custom table function 
-;;(See $dcm-abstract-object$ below. For default
-;;use $semiformal-object$
-  (element abstract
-    (make element gi: "DIV"
-          ($dcm-abstract-object$)))
-
-  (element (abstract title) (empty-sosofo))
-
-;;subtitle sizing
-(element subtitle 
-  (make element gi: "H4"
-        attributes: (list (list "CLASS" (gi)))
-        (process-children-trim))))
-
-;;=================
-;;    INLINES
-;;=================
-
-;Define my own series of fonts for various elements
-(element application ($mono-seq$))
-(element command ($bold-seq$))
-(element filename ($mono-seq$))
-(element function ($mono-seq$))
-(element guibutton ($bold-seq$))
-(element guiicon ($bold-seq$))
-(element guilabel ($bold-mono-seq$))
-(element guimenu ($bold-seq$))
-(element guimenuitem ($bold-seq$))
-(element guisubmenu ($bold-seq$))
-(element hardware ($bold-mono-seq$))
-(element keycap ($bold-seq$))
-(element literal ($mono-seq$))
-(element parameter ($italic-mono-seq$))
-(element prompt ($mono-seq$))
-(element symbol ($charseq$))
-(element emphasis ($italic-seq$))
-
-;;Show comment element?
-(define %show-comments%
-  #t)
-
-;;====================
-;; General Formatting
-;;====================
-
-;;Formal Paras are ugly by default!
-;;Make the title run in - otherwise 
-;;you should use a sect!
-(element formalpara
-  (make element gi: "DIV"
-	attributes: (list
-		     (list "CLASS" (gi)))
-  	(make element gi: "P"
-	      (process-children))))
-
-;;This is the old one 
-;(element (formalpara title) 
-;($lowtitle$ 5))
-
-;;This is the new one
-(element (formalpara title) 
-  (make element gi: "B"
-	($runinhead$)))
-
-;;Make captions come after objects in the list
-(define ($object-titles-after$)
-  (list (normalize "figure")))
-
-
-;; Handle qanda labelling with Q: A:
-(define (qanda-defaultlabel)
-  (normalize "qanda"))
-
-;;From FreeBSD Sheets (Thanks!) Display Q and A in bigger bolder fonts
-
-(element question
-  (let* ((chlist   (children (current-node)))
-	 (firstch  (node-list-first chlist))
-	 (restch   (node-list-rest chlist)))
-    (make element gi: "DIV"
-	  attributes: (list (list "CLASS" (gi)))
-	  (make element gi: "P" 
-		(make element gi: "BIG"
-		      (make element gi: "A"
-			    attributes: (list
-					 (list "NAME" (element-id)))
-			    (empty-sosofo))
-		      (make element gi: "B"
-			    (literal (question-answer-label
-				      (current-node)) " ")
-			    (process-node-list (children firstch)))))
-	  (process-node-list restch))))
-
-;;Literal Elements
-
-;;Indent Literal layouts?
-(define %indent-literallayout-lines% 
-  #f)
-
-;;Indent Programlistings?
-(define %indent-programlisting-lines%
-  #f)
-
-;;Number lines in Programlistings?
-(define %number-programlisting-lines%
- #f)
-
-;;Should verbatim items be 'shaded' with a table?
-(define %shade-verbatim% 
- #t)
-
-;;Define shade-verbatim attributes
-(define ($shade-verbatim-attr$)
- (list
-  (list "BORDER" "0")
-  (list "BGCOLOR" "#E0E0E0")
-  (list "WIDTH" ($table-width$))))
-
-;;===================
-;;    Entities
-;;===================
-
-;;Netscape doesn't handle trademark 
-;;entity right at all!! Get rid of it.
-;;Make a TM in a superscipt font.
-(element trademark
-  (make sequence
-    (process-children)
-    (make element gi: "sup"
-    (literal "TM"))))
-
-
-;;===================
-;; New Definitions
-;;==================
-
-(define ($dcm-abstract-object$)
-   (make element gi: "TABLE"
-        attributes: '(("BORDER" "0")
-                      ("BGCOLOR" "#E0E0E0")
-                      ("WIDTH" "50%")
-                      ("CELLSPACING" "0")
-                      ("CELLPADDING" "0")
-                      ("ALIGN" "CENTER"))
-        (make element gi: "TR"
-              (make element gi: "TD"
-                    attributes: '(("VALIGN" "TOP"))
-                    (make element gi: "B"
-                    (literal "Abstract"))))
-        (make element gi: "TR"
-              (make element gi: "TD"
-                    attributes: '(("VALIGN" "TOP"))
-                    (process-children)))))
-
-;;Redefine Titlepage Separator on Articles
-
-(define (article-titlepage-separator side)
-  (make empty-element gi: "HR"
-  attributes: '(("WIDTH" "75%")
-                 ("ALIGN" "CENTER")
-                 ("COLOR" "#000000")
-                 ("SIZE" "1"))))
-
-
-
-
-(define (chunk-element-list)
-  (list (normalize "preface")
-	(normalize "chapter")
-	(normalize "appendix") 
-	(normalize "article")
-	(normalize "glossary")
-	(normalize "bibliography")
-	(normalize "index")
-	(normalize "colophon")
-	(normalize "setindex")
-	(normalize "reference")
-	(normalize "refentry")
-	(normalize "part")
-	(normalize "sect1") 
-	(normalize "section") 
-	(normalize "book") ;; just in case nothing else matches...
-	(normalize "set")  ;; sets are definitely chunks...
-	))
-
-;;Do you want Callouts to be graphics?
-(define %callout-graphics%
-#f)
-
-
-;;Make Callout graphics PNGs
-(define %callout-graphics-path%
-  "./imagelib/callouts/")
-
-  ;; Redefine $callout-bug$ to support the %callout-graphic-ext%
-  ;; variable.
-  (define ($callout-bug$ conumber)
-    (let ((number (if conumber (format-number conumber "1") "0")))
-      (if conumber
-          (if %callout-graphics%
-              (if (<= conumber %callout-graphics-number-limit%)
-                  (make empty-element gi: "IMG"
-                        attributes: (list (list "SRC"
-                                                (root-rel-path
-                                                 (string-append
-                                                  %callout-graphics-path%
-                                                  number
-                                                  %callout-graphics-ext%)))
-                                          (list "HSPACE" "0")
-                                          (list "VSPACE" "0")
-                                          (list "BORDER" "0")
-                                          (list "ALT"
-                                                (string-append
-                                                 "(" number ")"))))
-                  (make element gi: "B"
-                        (literal "(" (format-number conumber "1") ")")))
-              (make element gi: "B"
-                    (literal "(" (format-number conumber "1") ")")))
-          (make element gi: "B"
-         (literal "(??)")))))
-
-</style-specification-body>
-</style-specification>
-
-<external-specification id="docbook" document="docbook.dsl">
-
-</style-sheet>
diff -r ba4b50f63658 -r bc28c3bc3769 docs/ccguide/makefile
--- a/docs/ccguide/makefile	Thu Apr 24 01:24:07 2003 +0000
+++ b/docs/ccguide/makefile	Sun Apr 27 19:41:14 2003 +0000
@@ -1,7 +1,7 @@
 DOCBOOKDSL      = /usr/share/sgml/docbook/dsssl-stylesheets/print/docbook.dsl
 XMLDCL          = /usr/share/doc/openjade-1.3.1/pubtext/xml.dcl
 BOOK		= ccguide
-STYLESHEET	= docbook-utils.dsl
+STYLESHEET	= ../stylesheets/docbook-utils.dsl
 
 PREFACE		= intro.preface
 CHAPTERS	= chap1.chapter chap2.chapter chap3.chapter chap4.chapter
@@ -39,17 +39,13 @@
 	xmllint --valid --noout $(BOOK).docbook
 
 $(BOOK).pdf: $(BOOK).docbook $(SUPPORT)
-	docbook2pdf -d "docbook-utils-a4.dsl#print" $(BOOK).docbook
+	docbook2pdf -d "$(STYLESHEET)#print" $(BOOK).docbook
 
 xmlto: $(BOOK).docbook
 	xmlto pdf $(BOOK).docbook
 
 $(BOOK).ps: $(BOOK).docbook
-	docbook2ps -d "docbook-utils-a4.dsl#print" $(BOOK).docbook
-#	docbook2ps -d $(STYLESHEET)#print $(BOOK).docbook
-
-$(BOOK).txt: $(BOOK).docbook
-	docbook2txt -d "docbook-utils-a4.dsl#print" $(BOOK).docbook
+	docbook2ps -d "$(STYLESHEET)#print" $(BOOK).docbook
 
 # This rule is an alternative way to produce a PDF document
 xml-pdf:
@@ -58,13 +54,13 @@
 
 
 $(BOOK).html: $(BOOK).docbook
-	$(RM) *.htm *.html
+	$(RM) *.html
 #	jade -t sgml -V html-index -d /usr/share/sgml/docbook/dsssl-stylesheets-1.64/html/docbook.dsl $(BOOK).docbook
 #	collateindex.pl -p -o index.docbook HTML.index
-	docbook2html -d "docbook-utils-a4.dsl#html" $(BOOK).docbook
+	docbook2html -d "$(STYLESHEET)#html" $(BOOK).docbook
 
 print: $(BOOK).ps
 	psnup -2 $(BOOK).ps | lpr
 
 clean:
-	$(RM) *.htm *.html *.tex *.out $(BOOK).pdf $(BOOK).ps
+	$(RM) *.html *.tex *.out $(BOOK).pdf $(BOOK).ps
diff -r ba4b50f63658 -r bc28c3bc3769 docs/nitros9guide/chap7.chapter
--- a/docs/nitros9guide/chap7.chapter	Thu Apr 24 01:24:07 2003 +0000
+++ b/docs/nitros9guide/chap7.chapter	Sun Apr 27 19:41:14 2003 +0000
@@ -10,7 +10,7 @@
 </para>
 <warning>
 <para>
-Although many os-9 commands may work on Level One or Level
+Although many OS-9 commands may work on Level One or Level
 Two systems, there are differences. Take care not to mix command
 files from Level One systems on Level Two, or the reverse.
 </para>
diff -r ba4b50f63658 -r bc28c3bc3769 docs/nitros9guide/dmode.refentry
--- a/docs/nitros9guide/dmode.refentry	Thu Apr 24 01:24:07 2003 +0000
+++ b/docs/nitros9guide/dmode.refentry	Sun Apr 27 19:41:14 2003 +0000
@@ -21,7 +21,7 @@
 case options to be specified.
 </para><para>
 Also, current parameters are displayed with a "$" preceding
-to remind the user that the values are HEXADECIMAL.
+to remind the user that the values are <emphasis>hexadecimal</emphasis>.
 </para><para>
 Options may be prefixed with a "$". It is simply ignored.
 </para>
diff -r ba4b50f63658 -r bc28c3bc3769 docs/nitros9guide/docbook-utils-a4.dsl
--- a/docs/nitros9guide/docbook-utils-a4.dsl	Thu Apr 24 01:24:07 2003 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,1064 +0,0 @@
-<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
-<!ENTITY % html "IGNORE">
-<![%html;[
-<!ENTITY % print "IGNORE">
-<!ENTITY docbook.dsl PUBLIC "-//Norman Walsh//DOCUMENT DocBook HTML Stylesheet//EN" CDATA dsssl>
-]]>
-<!ENTITY % print "INCLUDE">
-<![%print;[
-<!ENTITY docbook.dsl PUBLIC "-//Norman Walsh//DOCUMENT DocBook Print Stylesheet//EN" CDATA dsssl>
-]]>
-]>
-
-<!--
-;;#######################################################################
-;;#                                                                     #
-;;#                 The GNOME Documentation Project's                   #
-;;#                  Custion DocBook Stylesheet Layer                   #
-;;#                    by Dave Mason dcm@redhat.com                     #
-;;#            Based on Norman Walsh's Modular Stylesheets              #
-;;#                                                                     #
-;;#            This is intended as a drop-in replacement for            #
-;;#            the cygnus-both.dsl file in DocBook Tools.               #
-;;#           Just copy it to the location dbtools created              #
-;;#                   and rename it cygnus-both.dsl                     #
-;;#                                                                     #
-;;#                       This is Version 1.0-4                         #
-;;#                  patched to fix RTF output (#49677)                 #
-;;#                patched to work with docbook-dsssl-1.72              #
-;;#                 patched for ADDRESS output (#50605)                 #
-;;#                      removed comment and remark                     #
-;;#                      disabled use-id-as-filename                    #
-;;#######################################################################
--->
-
-<style-sheet>
-
-
-<style-specification id="print" use="docbook">
-<style-specification-body> 
-
-;;==========================================================================
-;;                               PRINT
-;;==========================================================================
-
-;;======================================
-;;General Options
-;;======================================
-
-;;Do you want to print on both sides of the paper?
-(define %two-side% 
- #t)
-
-;;Do you want enumerated sections? (E.g, 1.1, 1.1.1, 1.2, etc.)
-(define %section-autolabel% 
- #t)
-
-;;What is the default extension for graphics?
-(define %graphic-default-extension% 
-  "eps")
-
-;;Show URL links? If the text of the link and the URL are identical,
-;;the parenthetical URL is suppressed.
-(define %show-ulinks%
- #t)
-
-;Make Ulinks footnotes to stop bleeding in the edges - this increases
-;'jade --> print' time tremendously keep this in mind before
-;complaining!
-(define %footnote-ulinks%
-  #t)
-
-;;Tex Backend on
-(define tex-backend 
- #t)
-
-;;Define Line Spacing
-(define %line-spacing-factor% 1.1)
-
-;;Define the Paragraph Style
-(define para-style
-  (style
-   font-size: %bf-size%
-   font-weight: 'medium
-   font-posture: 'upright
-   font-family-name: %body-font-family%
-   line-spacing: (* %bf-size% %line-spacing-factor%)))
-
-(define ($object-titles-after$)
-  (list (normalize "figure")))
-
-;;======================================
-;;Book Options
-;;======================================
-
-
-;;Do you want a title page for a Book?
-(define %generate-book-titlepage%
- #t)
-
-;;Do you want a separate page for the title?
-(define %generate-book-titlepage-on-separate-page%
- #t)
-
-;;Generate Book TOC?
-(define %generate-book-toc% 
- #t)
-
-;;What depth should the TOC generate?
-;;!Only top level of appendixes!
-(define (toc-depth nd)
-  (if (string=? (gi nd) (normalize "book"))
-      3
-      (if (string=? (gi nd) (normalize "appendix"))
-        0
-        1)))
-
-;;Do you want a TOC for the element part?
-(define %generate-part-toc% 
- #f)
-
-;;Do you want the part toc on the part titlepage or separate?
-(define %generate-part-toc-on-titlepage%
- #t)
-
-;;Generate Part Title Page?
-(define %generate-part-titlepage% 
-  #f)
-
-;;Do you want the Part intro on the part title page?
-(define %generate-partintro-on-titlepage%
-  #t)
-
-;;What elements should have a LOT?
-(define ($generate-book-lot-list$)
-  (list (normalize "equation")))
-
-;;Do you want chapters enumerated?
-(define %chapter-autolabel% 
- #t)
-
-;;Do you want Chapter's and Appendix's 
-;;to have automatic labels?
-(define %chap-app-running-head-autolabel% 
-  #t)
-
-
-;;======================================
-;;Article Options
-;;======================================
-
-;;Do you want a title page for an Article?
-(define %generate-article-titlepage%
- #t)
-
-;;Generate Article TOC?
-(define %generate-article-toc% 
- #t)
-
-;;Do you want a separate page for the title?
-(define %generate-article-titlepage-on-separate-page%
- #t)
-
-;;Do you want the article toc on the titlepage or separate?
-(define %generate-article-toc-on-titlepage%
- #t)
-
-;;Do you want to start new page numbers with each article?
-(define %article-page-number-restart%
- #f)
-
-;;Titlepage Separate?
-(define (chunk-skip-first-element-list)
-  '())
-
-;;Titlepage Not Separate
-;(define (chunk-skip-first-element-list)
-;  (list (normalize "sect1")
-;	(normalize "section")))
-
-;;======================================
-;;Columns
-;;======================================
-
-;;How many columns do you want?
-(define %page-n-columns%
- 1)
-
-;;How much space between columns?
-(define %page-column-sep%
- 0.2in)
-
-;;How many Columns on the titlepage?
-(define %titlepage-n-columns%
-  1)
-
-;;Balance columns?
-(define %page-balance-colums%
-#t)
-
-;;======================================
-;;Fonts
-;;======================================
-
-;;Defines the general size of the text in the document. normal(10),
-;;presbyopic(12), and large-type(24). 
-(define %visual-acuity%
- "normal")
-
-;;What font would you like for titles?
-(define %title-font-family% 
-  "Helvetica")
-
-;;What font would you like for the body?
-(define %body-font-family% 
- "Palatino")
-
-;;What font would you like for mono-seq?
-(define %mono-font-family% 
- "Courier New")
-
-;;If the base fontsize is 10pt, and '%hsize-bump-factor%' is
-;; 1.2, hsize 1 is 12pt, hsize 2 is 14.4pt, hsize 3 is 17.28pt, etc
-(define %hsize-bump-factor% 
- 1.1)
-
-;;What size do you want the body fonts?
-(define %bf-size%
- (case %visual-acuity%
-    (("tiny") 8pt)
-    (("normal") 10pt)
-    (("presbyopic") 12pt)
-    (("large-type") 24pt)))
-
-(define-unit em %bf-size%)
-
-;;======================================
-;;Margins
-;;======================================
-
-(define %left-right-margin% 6pi)
-
-;;How much indentation for the body?
-(define %body-start-indent% 
- 4pi)
-
-;;How big is the left margin? (relative to physical page)
-(define %left-margin% 
- 8pi) ;white-paper-column
-
-;;How big is the right margin? (relative to physical page)
-(define %right-margin% 
- 8pi) ;white-paper-column
-
-;;How big do you want the margin at the top?
-(define %top-margin%
-(if (equal? %visual-acuity% "large-type")
-      7.5pi
-      6pi))
-
-;;How big do you want the margin at the bottom?
-(define %bottom-margin% 
- (if (equal? %visual-acuity% "large-type")
-      7.5pi 
-      5pi))
-
-;;Define the text width. (Change the elements in the formula rather
-;;than the formula itself)
-;(define %text-width% (- %page-width% (* %left-right-margin% 2)))
-(define %text-width%  (- %page-width% (+ %left-margin% %right-margin%)))
-
-;;Define the body width. (Change the elements in the formula rather
-;;than the formula itself)
-(define %body-width% 
- (- %text-width% %body-start-indent%))
-
-;;Define distance between paragraphs
-(define %para-sep% 
- (/ %bf-size% 2.0))
-
-;;Define distance between block elements (figures, tables, etc.).
-(define %block-sep% 
- (* %para-sep% 2.0))
-
-;;Indent block elements?
-(define %block-start-indent% 
-  0pt)
-;0pt
-
-;;======================================
-;;Admon Graphics
-;;======================================
-
-;;Do you want admon graohics on?
-(define %admon-graphics%
- #f)
-
-;;Where are the admon graphics?
-(define %admon-graphics-path%
- "../images/")
-
-;;======================================
-;;Quadding
-;;======================================
-
-;;What quadding do you want by default; start, center, justify, or end?
-(define %default-quadding%
- 'justify)
-
-;;What quadding for component titles(Chapter, Appendix, etc)?
-(define %component-title-quadding% 
- 'start)
-
-;;What quadding for section titles?
-(define %section-title-quadding% 
- 'start)
-
-;;What quadding for section sub-titles?
-(define %section-subtitle-quadding%
- 'start)
-
-;;What quadding for article title?
-(define %article-title-quadding% 
- 'center)
-
-;;What quadding for article sub-titles?
-(define %article-subtitle-quadding%
- 'center)
-
-;;What quadding for division subtitles?
-(define %division-subtitle-quadding% 
-  'start)
-
-;;What quadding for component subtitles?
-(define %component-subtitle-quadding% 
-  'start)
-
-
-
-
-;;======================================
-;;Paper Options
-;;======================================
-
-;;What size paper do you need? A4, USletter, USlandscape, or RedHat?
-(define %paper-type%
- "A4")
-
-;;Now define those paper types' width
-(define %page-width%
- (case %paper-type%
-    (("A4") 210mm)
-    (("USletter") 8.5in)
-    (("USlandscape") 11in)))
-
-;;Now define those paper types' height
-(define %page-height%
- (case %paper-type%
-    (("A4") 297mm)
-    (("USletter") 11in)
-    (("USlandscape") 8.5in)))
-
-;;======================================
-;;Functions
-;;======================================
-
-(define (OLSTEP)
-  (case
-   (modulo (length (hierarchical-number-recursive "ORDEREDLIST")) 4)
-	((1) 1.2em)
-	((2) 1.2em)
-	((3) 1.6em)
-	((0) 1.4em)))
-
-(define (ILSTEP) 1.0em)
-
-(define (PROCSTEP ilvl)
-  (if (> ilvl 1) 1.8em 1.4em))
-
-(define (PROCWID ilvl)
-  (if (> ilvl 1) 1.8em 1.4em))
-
-
-(define ($comptitle$)
-  (make paragraph
-	font-family-name: %title-font-family%
-	font-weight: 'bold
-	font-size: (HSIZE 2)
-	line-spacing: (* (HSIZE 2) %line-spacing-factor%)
-	space-before: (* (HSIZE 2) %head-before-factor%)
-	space-after: (* (HSIZE 2) %head-after-factor%)
-	start-indent: 0pt
-	first-line-start-indent: 0pt
-	quadding: 'start
-	keep-with-next?: #t
-	(process-children-trim)))
-
-;;Callouts are confusing in Postscript... fix them.
-(define %callout-fancy-bug% 
- #f)
-
-
-;;By default perils are centered and dropped into a box with a really
-;;big border - I have simply decreased the border thickness -
-;;unfortunately it takes all this to do it - sigh.
-(define ($peril$)
-  (let* ((title     (select-elements 
-		     (children (current-node)) (normalize "title")))
-	 (has-title (not (node-list-empty? title)))
-	 (adm-title (if has-title 
-			(make sequence
-			  (with-mode title-sosofo-mode
-			    (process-node-list (node-list-first title))))
-			(literal
-			 (gentext-element-name 
-			  (current-node)))))
-	 (hs (HSIZE 2)))
-  (if %admon-graphics%
-      ($graphical-admonition$)
-      (make display-group
-	space-before: %block-sep%
-	space-after: %block-sep%
-	font-family-name: %admon-font-family%
-	font-size: (- %bf-size% 1pt)
-	font-weight: 'medium
-	font-posture: 'upright
-	line-spacing: (* (- %bf-size% 1pt) %line-spacing-factor%)
-	(make box
-	  display?: #t
-	  box-type: 'border
-	  line-thickness: .5pt
-	  start-indent: (+ (inherited-start-indent) (* 2 (ILSTEP)) 2pt)
-	  end-indent: (inherited-end-indent)
-	  (make paragraph
-	    space-before: %para-sep%
-	    space-after: %para-sep%
-	    start-indent: 1em
-	    end-indent: 1em
-	    font-family-name: %title-font-family%
-	    font-weight: 'bold
-	    font-size: hs
-	    line-spacing: (* hs %line-spacing-factor%)
-	    quadding: 'center
-	    keep-with-next?: #t
-	    adm-title)
-	  (process-children))))))
-
-
-;;======================================
-;;Non-printing Elements
-;;======================================
-(element TITLEABBREV (empty-sosofo))
-(element SUBTITLE (empty-sosofo))
-(element SETINFO (empty-sosofo))
-(element BOOKINFO (empty-sosofo))
-(element BIBLIOENTRY (empty-sosofo))
-(element BIBLIOMISC (empty-sosofo))
-(element BOOKBIBLIO (empty-sosofo))
-(element SERIESINFO (empty-sosofo))
-(element DOCINFO (empty-sosofo))
-(element ARTHEADER (empty-sosofo))
-;;(element ADDRESS (empty-sosofo))
-
-;;Show comment element?
-(define %show-comments%
-  #t)
-
-;;======================================
-;;Formalpara titles
-;;======================================
-
-
-;;Change the way Formal Paragraph titles are displayed. The commented
-;;out section will run the titles in the paragraphs. 
-(element (formalpara title)
-  ;(make sequence
-  ;font-weight: 'bold
-  ;($runinhead$))
-  ($lowtitle$ 5 7))
-
-;;======================================
-;;Inlines
-;;======================================
-
-(element application ($mono-seq$))
-(element command ($bold-seq$))
-(element filename ($mono-seq$))
-(element function ($mono-seq$))
-(element guibutton ($bold-seq$))
-(element guiicon ($bold-seq$))
-(element guilabel ($italic-seq$))
-(element guimenu ($bold-seq$))
-(element guimenuitem ($bold-seq$))
-(element hardware ($bold-mono-seq$))
-(element keycap ($bold-seq$))
-(element literal ($mono-seq$))
-(element parameter ($italic-mono-seq$))
-(element prompt ($mono-seq$))
-(element symbol ($charseq$))
-(element emphasis ($italic-seq$))
-
-</style-specification-body>
-</style-specification>
-
-
-<!-- 
-;;===========================================================================
-;;                                HTML
-;;===========================================================================
--->
-
-<style-specification id="html" use="docbook">
-<style-specification-body> 
-
-;; this is necessary because right now jadetex does not understand
-;; symbolic entities, whereas things work well with numeric entities.
-(declare-characteristic preserve-sdata?
-          "UNREGISTERED::James Clark//Characteristic::preserve-sdata?"
-          #f)
-
-
-;;=========================
-;;Header HTML 4.0.1
-;;=========================
-
-(define %html-pubid% "-//W3C//DTD HTML 4.01//EN")
-
-;;=========================
-;;Common Stuff
-;;=========================
-
-;;Should there be a link to the legalnotice?
-(define %generate-legalnotice-link%
-  #t)
-
-;;What graphics extensions allowed?
-(define %graphic-extensions% 
-'("gif" "png" "jpg" "jpeg" "tif" "tiff" "eps" "epsf" ))
-
-;;What is the default extension for images?
-(define %graphic-default-extension% "png")
-
-;;Use element ids as filenames?
-(define %use-id-as-filename%
- #f)
-
-
-;;=========================
-;;Book Stuff
-;;=========================
-
-;;Do you want a TOC for Books?
-(define %generate-book-toc% 
-  #t)
-
-;;What depth should the TOC generate?
-;;!Only top level of appendixes!
-(define (toc-depth nd)
-  (if (string=? (gi nd) (normalize "book"))
-      3
-      (if (string=? (gi nd) (normalize "appendix"))
-        0
-        1)))
-
-;;What elements should have an LOT?
-(define ($generate-book-lot-list$)
-  (list (normalize "equation")))
-
-;;Do you want a title page for your Book?
-(define %generate-book-titlepage%
-#t)
-
-;;=========================
-;;Part Stuff
-;;=========================
-
-;;Should parts have TOCs?
-(define %generate-part-toc% 
-  #t)
-
-;;Should part TOCs be on their titlepages?
-(define %generate-part-toc-on-titlepage%
-  #t)
-
-;;Do you want a title page for your part?
-(define %generate-part-titlepage% 
-  #t)
-
-;;Should the Part intro be on the part title page?
-(define %generate-partintro-on-titlepage%
- #t)
-
-(define %para-autolabel%
- #t)
-
-;;========================
-;;Chapter Stuff
-;;=======================
-
-;;No TOCs in Chapters
-(define $generate-chapter-toc$
- (lambda ()
-    #f))
-
-;;=========================
-;;Navigation
-;;=========================
-
-;;Should there be navigation at top?
-(define %header-navigation%
- #t)
-
-;;Should there be navigation at bottom?
-(define %footer-navigation%
-  #t)
-
-;;Use tables to create the navigation?
-(define %gentext-nav-use-tables%
- #t)
-
-;;If tables are used for navigation, 
-;;how wide should they be? 
-(define %gentext-nav-tblwidth% 
-"100%")
-
-;;Add arrows to navigation (comment these 
-;;out if you want admon graphics here)
-(define (gentext-en-nav-prev prev) 
-  (make sequence (literal "<<< Previous")))
-
-;;Add arrows to navigation (comment these 
-;;out if you want admon graphics here)
-(define (gentext-en-nav-next next)
-  (make sequence (literal "Next >>>")))
-
-
-;;=========================
-;;Tables and Lists
-;;=========================
-
-;;Should Variable lists be tables?
-(define %always-format-variablelist-as-table%
- #f)
-
-;;What is the length of the 'Term' in a variablelist?
-(define %default-variablelist-termlength%
-  20)
-
-;;When true | If the terms are shorter than 
-;;the termlength above then the variablelist 
-;;will be formatted as a table.
-(define %may-format-variablelist-as-table%
-#f)
-
-;;This overrides the tgroup definition 
-;;(copied from 1.20, dbtable.dsl).
-;;It changes the table background color, 
-;;cell spacing and cell padding.
-;;This is based on gtk-doc additions - thanks!
-
-(element tgroup
-  (let* ((wrapper   (parent (current-node)))
-	 (frameattr (attribute-string (normalize "frame") wrapper))
-	 (pgwide    (attribute-string (normalize "pgwide") wrapper))
-	 (footnotes (select-elements (descendants (current-node)) 
-				     (normalize "footnote")))
-	 (border (if (equal? frameattr (normalize "none"))
-		     '(("BORDER" "0"))
-		     '(("BORDER" "1"))))
-	 (bgcolor '(("BGCOLOR" "#E0E0E0")))
-	 (width (if (equal? pgwide "1")
-		    (list (list "WIDTH" ($table-width$)))
-		    '()))
-	 (head (select-elements (children (current-node)) (normalize "thead")))
-	 (body (select-elements (children (current-node)) (normalize "tbody")))
-	 (feet (select-elements (children (current-node)) (normalize "tfoot"))))
-    (make element gi: "TABLE"
-	  attributes: (append
-		       border
-		       width
-		       bgcolor
-		       '(("CELLSPACING" "0"))
-		       '(("CELLPADDING" "4"))
-		       (if %cals-table-class%
-			   (list (list "CLASS" %cals-table-class%))
-			   '()))
-	  (process-node-list head)
-	  (process-node-list body)
-	  (process-node-list feet)
-	  (make-table-endnotes))))
-
-;;===================
-;; Admon Graphics
-;;===================
-
-;;Should Admon Graphics be used?
-(define %admon-graphics%
-  #t)
-
-;;Where are those admon graphics?
-(define %admon-graphics-path%
-  "./stylesheet-images/")
-
-;;Given an admonition node, returns the 
-;;name of the graphic that should
-;;be used for that admonition.
-;;Define admon graphics usage
-;;NOTE these will change to pngs 
-;;soon in the GDP when Tigert gets 
-;;the time to make special ones for us!
-(define ($admon-graphic$ #!optional (nd (current-node)))
-  (cond ((equal? (gi nd) (normalize "tip"))
-	 (string-append %admon-graphics-path% "tip.gif"))
-	((equal? (gi nd) (normalize "note"))
-	 (string-append %admon-graphics-path% "note.gif"))
-	((equal? (gi nd) (normalize "important"))
-	 (string-append %admon-graphics-path% "important.gif"))
-	((equal? (gi nd) (normalize "caution"))
-	 (string-append %admon-graphics-path% "caution.gif"))
-	((equal? (gi nd) (normalize "warning"))
-	 (string-append %admon-graphics-path% "warning.gif"))
-	(else (error (string-append (gi nd) " is not an admonition.")))))
-
-;;Given an admonition node, returns 
-;;the width of the graphic that will
-;;be used for that admonition.
-(define ($admon-graphic-width$ #!optional (nd (current-node)))
-  "25")
-
-;;=========================
-;;Labels
-;;=========================
-
-;;Enumerate Chapters?
-(define %chapter-autolabel% 
- #t)
-
-;;Enumerate Sections?
-(define %section-autolabel%
- #t)
-
-;;=========================
-;;    HTML Attributes
-;;=========================
-
-;;What attributes should be hung off 
-;;of 'body'?
-(define %body-attr%
- (list
-   (list "BGCOLOR" "#FFFFFF")
-   (list "TEXT" "#000000")
-   (list "LINK" "#0000FF")
-   (list "VLINK" "#840084")
-   (list "ALINK" "#0000FF")))
-
-;;Default extension for filenames?
-(define %html-ext% 
-  ".html")
-
-;;Use a CSS stylesheet?
-;;Which one? Should work on 
-;;this one soon
-;(define %stylesheet% 
-;        "./gnome.css")
-
-;;Use it
-;(define %stylesheet-type% 
-;"text/css")
-
-
-;;========================
-;;Title Pages for Books
-;;=======================
-
-(define (book-titlepage-recto-elements)
-  (list (normalize "title")
-	(normalize "subtitle")
-	(normalize "corpauthor")
-	(normalize "authorgroup")
-	(normalize "author")
-	(normalize "orgname")
-	(normalize "graphic")
-	(normalize "copyright")
-	(normalize "legalnotice")
-	(normalize "releaseinfo")
-	(normalize "publisher")
-	(normalize "isbn")))
-
-;;========================
-;;Title Pages for Articles
-;;========================
-
-;;Should Articles have a TOC?
-(define %generate-article-toc% 
-  #t)
-
-;;Which elements should appear 
-;;on title page?
-(define (article-titlepage-recto-elements)
-  (list (normalize "title")
-	(normalize "subtitle")
-        (normalize "authorgroup")
-        (normalize "copyright")
-        (normalize "legalnotice")
-        (normalize "abstract")))
-
-;;How should elements on title page look?
-(mode article-titlepage-recto-mode
-
-;;Author name is too big - change it!
-  (element author
-    (let ((author-name  (author-string))
-	  (author-affil (select-elements (children (current-node)) 
-					 (normalize "affiliation"))))
-      (make sequence      
-	(make element gi: "H4"
-	      attributes: (list (list "CLASS" (gi)))
-	      (make element gi: "A"
-		    attributes: (list (list "NAME" (element-id)))
-		    (literal author-name)))
-	(process-node-list author-affil))))
-
-;;Address?
-  (element address 
-    (make sequence
-      (make element gi: "DIV"
-            attributes: (list (list "CLASS" (gi)))
-            (process-children))))
-
-;;Get rid of spam-producing "mailto" links
-;;and get rid of email indentation  
-  (element email
-    (make sequence
-      (make element gi: "DIV"
-            attributes: (list (list "CLASS" (gi)))
-            (process-children))))
-
-;;Point Abstract to custom table function 
-;;(See $dcm-abstract-object$ below. For default
-;;use $semiformal-object$
-  (element abstract
-    (make element gi: "DIV"
-          ($dcm-abstract-object$)))
-
-  (element (abstract title) (empty-sosofo))
-
-;;subtitle sizing
-(element subtitle 
-  (make element gi: "H4"
-        attributes: (list (list "CLASS" (gi)))
-        (process-children-trim))))
-
-;;=================
-;;    INLINES
-;;=================
-
-;Define my own series of fonts for various elements
-(element application ($mono-seq$))
-(element command ($bold-seq$))
-(element filename ($mono-seq$))
-(element function ($mono-seq$))
-(element guibutton ($bold-seq$))
-(element guiicon ($bold-seq$))
-(element guilabel ($bold-mono-seq$))
-(element guimenu ($bold-seq$))
-(element guimenuitem ($bold-seq$))
-(element guisubmenu ($bold-seq$))
-(element hardware ($bold-mono-seq$))
-(element keycap ($bold-seq$))
-(element literal ($mono-seq$))
-(element parameter ($italic-mono-seq$))
-(element prompt ($mono-seq$))
-(element symbol ($charseq$))
-(element emphasis ($italic-seq$))
-
-;;Show comment element?
-(define %show-comments%
-  #t)
-
-;;====================
-;; General Formatting
-;;====================
-
-;;Formal Paras are ugly by default!
-;;Make the title run in - otherwise 
-;;you should use a sect!
-(element formalpara
-  (make element gi: "DIV"
-	attributes: (list
-		     (list "CLASS" (gi)))
-  	(make element gi: "P"
-	      (process-children))))
-
-;;This is the old one 
-;(element (formalpara title) 
-;($lowtitle$ 5))
-
-;;This is the new one
-(element (formalpara title) 
-  (make element gi: "B"
-	($runinhead$)))
-
-;;Make captions come after objects in the list
-(define ($object-titles-after$)
-  (list (normalize "figure")))
-
-
-;; Handle qanda labelling with Q: A:
-(define (qanda-defaultlabel)
-  (normalize "qanda"))
-
-;;From FreeBSD Sheets (Thanks!) Display Q and A in bigger bolder fonts
-
-(element question
-  (let* ((chlist   (children (current-node)))
-	 (firstch  (node-list-first chlist))
-	 (restch   (node-list-rest chlist)))
-    (make element gi: "DIV"
-	  attributes: (list (list "CLASS" (gi)))
-	  (make element gi: "P" 
-		(make element gi: "BIG"
-		      (make element gi: "A"
-			    attributes: (list
-					 (list "NAME" (element-id)))
-			    (empty-sosofo))
-		      (make element gi: "B"
-			    (literal (question-answer-label
-				      (current-node)) " ")
-			    (process-node-list (children firstch)))))
-	  (process-node-list restch))))
-
-;;Literal Elements
-
-;;Indent Literal layouts?
-(define %indent-literallayout-lines% 
-  #f)
-
-;;Indent Programlistings?
-(define %indent-programlisting-lines%
-  #f)
-
-;;Number lines in Programlistings?
-(define %number-programlisting-lines%
- #f)
-
-;;Should verbatim items be 'shaded' with a table?
-(define %shade-verbatim% 
- #t)
-
-;;Define shade-verbatim attributes
-(define ($shade-verbatim-attr$)
- (list
-  (list "BORDER" "0")
-  (list "BGCOLOR" "#E0E0E0")
-  (list "WIDTH" ($table-width$))))
-
-;;===================
-;;    Entities
-;;===================
-
-;;Netscape doesn't handle trademark 
-;;entity right at all!! Get rid of it.
-;;Make a TM in a superscipt font.
-(element trademark
-  (make sequence
-    (process-children)
-    (make element gi: "sup"
-    (literal "TM"))))
-
-
-;;===================
-;; New Definitions
-;;==================
-
-(define ($dcm-abstract-object$)
-   (make element gi: "TABLE"
-        attributes: '(("BORDER" "0")
-                      ("BGCOLOR" "#E0E0E0")
-                      ("WIDTH" "50%")
-                      ("CELLSPACING" "0")
-                      ("CELLPADDING" "0")
-                      ("ALIGN" "CENTER"))
-        (make element gi: "TR"
-              (make element gi: "TD"
-                    attributes: '(("VALIGN" "TOP"))
-                    (make element gi: "B"
-                    (literal "Abstract"))))
-        (make element gi: "TR"
-              (make element gi: "TD"
-                    attributes: '(("VALIGN" "TOP"))
-                    (process-children)))))
-
-;;Redefine Titlepage Separator on Articles
-
-(define (article-titlepage-separator side)
-  (make empty-element gi: "HR"
-  attributes: '(("WIDTH" "75%")
-                 ("ALIGN" "CENTER")
-                 ("COLOR" "#000000")
-                 ("SIZE" "1"))))
-
-
-
-
-(define (chunk-element-list)
-  (list (normalize "preface")
-	(normalize "chapter")
-	(normalize "appendix") 
-	(normalize "article")
-	(normalize "glossary")
-	(normalize "bibliography")
-	(normalize "index")
-	(normalize "colophon")
-	(normalize "setindex")
-	(normalize "reference")
-	(normalize "refentry")
-	(normalize "part")
-	(normalize "sect1") 
-	(normalize "section") 
-	(normalize "book") ;; just in case nothing else matches...
-	(normalize "set")  ;; sets are definitely chunks...
-	))
-
-;;Do you want Callouts to be graphics?
-(define %callout-graphics%
-#f)
-
-
-;;Make Callout graphics PNGs
-(define %callout-graphics-path%
-  "./imagelib/callouts/")
-
-  ;; Redefine $callout-bug$ to support the %callout-graphic-ext%
-  ;; variable.
-  (define ($callout-bug$ conumber)
-    (let ((number (if conumber (format-number conumber "1") "0")))
-      (if conumber
-          (if %callout-graphics%
-              (if (<= conumber %callout-graphics-number-limit%)
-                  (make empty-element gi: "IMG"
-                        attributes: (list (list "SRC"
-                                                (root-rel-path
-                                                 (string-append
-                                                  %callout-graphics-path%
-                                                  number
-                                                  %callout-graphics-ext%)))
-                                          (list "HSPACE" "0")
-                                          (list "VSPACE" "0")
-                                          (list "BORDER" "0")
-                                          (list "ALT"
-                                                (string-append
-                                                 "(" number ")"))))
-                  (make element gi: "B"
-                        (literal "(" (format-number conumber "1") ")")))
-              (make element gi: "B"
-                    (literal "(" (format-number conumber "1") ")")))
-          (make element gi: "B"
-         (literal "(??)")))))
-
-</style-specification-body>
-</style-specification>
-
-<external-specification id="docbook" document="docbook.dsl">
-
-</style-sheet>
diff -r ba4b50f63658 -r bc28c3bc3769 docs/nitros9guide/makefile
--- a/docs/nitros9guide/makefile	Thu Apr 24 01:24:07 2003 +0000
+++ b/docs/nitros9guide/makefile	Sun Apr 27 19:41:14 2003 +0000
@@ -1,42 +1,40 @@
 BOOKL1		= os9l1guide
 BOOKL2		= os9l2guide
-STYLESHEET	= docbook-utils.dsl
+STYLESHEET	= ../stylesheets/docbook-utils.dsl
 
 all:	$(BOOKL1).pdf $(BOOKL2).pdf
 
 $(BOOKL1).pdf: $(BOOKL1).docbook $(SRCS)
-	 docbook2pdf -d docbook-utils-a4.dsl#print $(BOOKL1).docbook
+	 docbook2pdf -d $(STYLESHEET)#print $(BOOKL1).docbook
 
 $(BOOKL2).pdf: $(BOOKL2).docbook $(SRCS)
-	 docbook2pdf -d docbook-utils-a4.dsl#print $(BOOKL2).docbook
+	 docbook2pdf -d $(STYLESHEET)#print $(BOOKL2).docbook
 
 $(BOOKL1).ps: $(BOOKL1).docbook $(SRCS)
-	 docbook2ps -d docbook-utils-a4.dsl#print $(BOOKL1).docbook
-#	 docbook2ps -d $(STYLESHEET) $(BOOKL1).docbook
+	 docbook2ps -d $(STYLESHEET)#print $(BOOKL1).docbook
 
 $(BOOKL2).ps: $(BOOKL2).docbook $(SRCS)
-	 docbook2ps -d docbook-utils-a4.dsl#print $(BOOKL2).docbook
-#	 docbook2ps -d $(STYLESHEET) $(BOOKL2).docbook
+	 docbook2ps -d $(STYLESHEET)#print $(BOOKL2).docbook
 
 $(BOOKL1).html: $(BOOKL1).docbook $(SRCS)
-	$(RM) *.htm *.html
+	$(RM) *.html
 #	jade -t sgml -V html-index -d /usr/share/sgml/docbook/dsssl-stylesheets-1.64/html/docbook.dsl $(BOOKL1).docbook
 #	collateindex.pl -p -o index.docbook HTML.index
-	docbook2html -d docbook-utils-a4.dsl#html $(BOOKL1).docbook
+	docbook2html -d $(STYLESHEET)#html $(BOOKL1).docbook
 
 $(BOOKL2).html: $(BOOKL2).docbook $(SRCS)
-	$(RM) *.htm *.html
+	$(RM) *.html
 #	jade -t sgml -V html-index -d /usr/share/sgml/docbook/dsssl-stylesheets-1.64/html/docbook.dsl $(BOOKL2).docbook
 #	collateindex.pl -p -o index.docbook HTML.index
-	docbook2html -d docbook-utils-a4.dsl#html $(BOOKL2).docbook
+	docbook2html -d $(STYLESHEET)#html $(BOOKL2).docbook
 
 print: $(BOOKL1).ps $(BOOKL2).ps
 	psnup -2 $(BOOKL1).ps | lpr
 	psnup -2 $(BOOKL2).ps | lpr
 
 clean:
-	$(RM) *.htm *.html $(BOOKL1).pdf $(BOOKL1).ps $(BOOKL2).pdf \
-	$(BOOKL2).ps *.log *.out *.aux
+	$(RM) *.html $(BOOKL1).pdf $(BOOKL1).ps $(BOOKL2).pdf \
+	      $(BOOKL2).ps *.log *.out *.aux
 
 SRCS          = $(CHAPS) $(APXS) $(REFS)
 CHAPS         = intro.preface \
diff -r ba4b50f63658 -r bc28c3bc3769 docs/nitros9guide/shell.refentry
--- a/docs/nitros9guide/shell.refentry	Thu Apr 24 01:24:07 2003 +0000
+++ b/docs/nitros9guide/shell.refentry	Sun Apr 27 19:41:14 2003 +0000
@@ -78,6 +78,67 @@
         := # <replaceable>integer</replaceable> set process memory size in pages
         := # <replaceable>integer</replaceable> K   set program memory size in 1K increments
 </synopsis>
+<!--
+.. A new way to describe the syntax ..
+<productionset><title>Program Line</title>
+<production id="shell.line">
+  <lhs>pgm line</lhs>
+  <rhs><nonterminal def="shell.pgm">pgm</nonterminal> 
+       {<nonterminal def="shell.pgm">pgm</nonterminal>}
+  </rhs>
+</production>
+<production id="shell.pgm">
+  <lhs>pgm</lhs>
+  <rhs>[<nonterminal def="shell.params">params</nonterminal>]
+[ <nonterminal def="shell.name">name</nonterminal>
+[<nonterminal def="shell.modif">modif</nonterminal>]
+[<nonterminal def="shell.pgmparams">pgm params</nonterminal>]
+[<nonterminal def="shell.modif">modif</nonterminal>] ]
+[<nonterminal def="shell.sep">sep</nonterminal>]
+  </rhs>
+</production>
+</productionset>
+<productionset><title>Program Specifications</title>
+<production id="shell.name">
+  <lhs>name</lhs>
+  <rhs>
+<nonterminal def="shell.name">module name</nonterminal>
+| <nonterminal def="shell.pathlist">pathlist</nonterminal>
+|( <nonterminal def="shell.pgmlist">pgm list</nonterminal> )
+  </rhs>
+</production>
+</productionset>
+<productionset><title>Parameters</title>
+<production id="shell.params">
+  <lhs>params</lhs>
+  <rhs><nonterminal def="shell.param">param</nonterminal>
+{ <nonterminal def="shell.delim">delim</nonterminal>
+<nonterminal def="shell.param">param</nonterminal> }
+</rhs>
+</production>
+<production id="shell.delim">
+  <lhs>delim</lhs>
+  <rhs>space or comma characters</rhs>
+</production>
+<production id="shell.param">
+  <lhs>param</lhs>
+  <rhs>ex <nonterminal def="shell.name">name</nonterminal>
+[<nonterminal def="shell.modif">modif</nonterminal>]
+<lineannotation>chain to program specified</lineannotation>
+<sbr/>
+chd <nonterminal def="shell.name">pathlist</nonterminal>
+<lineannotation>change working directory</lineannotation>
+</rhs>
+</production>
+
+
+
+
+<production id="shell.param">
+  <lhs>param</lhs>
+  <rhs>space or comma characters</rhs>
+</production>
+</productionset>
+-->
 </refsect1>
 </refentry>
-
diff -r ba4b50f63658 -r bc28c3bc3769 docs/os9sysprog/docbook-utils.dsl
--- a/docs/os9sysprog/docbook-utils.dsl	Thu Apr 24 01:24:07 2003 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,1117 +0,0 @@
-<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
-<!ENTITY % html "IGNORE">
-<![%html;[
-<!ENTITY % print "IGNORE">
-<!ENTITY docbook.dsl PUBLIC "-//Norman Walsh//DOCUMENT DocBook HTML Stylesheet//EN" CDATA dsssl>
-]]>
-<!ENTITY % print "INCLUDE">
-<![%print;[
-<!ENTITY docbook.dsl PUBLIC "-//Norman Walsh//DOCUMENT DocBook Print Stylesheet//EN" CDATA dsssl>
-]]>
-]>
-
-<!--
-;;#######################################################################
-;;#                                                                     #
-;;#                 The GNOME Documentation Project's                   #
-;;#                  Custion DocBook Stylesheet Layer                   #
-;;#                    by Dave Mason dcm@redhat.com                     #
-;;#            Based on Norman Walsh's Modular Stylesheets              #
-;;#                                                                     #
-;;#            This is intended as a drop-in replacement for            #
-;;#            the cygnus-both.dsl file in DocBook Tools.               #
-;;#           Just copy it to the location dbtools created              #
-;;#                   and rename it cygnus-both.dsl                     #
-;;#                                                                     #
-;;#                       This is Version 1.0-4                         #
-;;#######################################################################
--->
-
-<style-sheet>
-
-
-<style-specification id="print" use="docbook">
-<style-specification-body> 
-
-;;==========================================================================
-;;                               PRINT
-;;==========================================================================
-
-;;======================================
-;;General Options
-;;======================================
-
-;;Do you want to print on both sides of the paper?
-(define %two-side% 
- #t)
-
-;;Do you want enumerated sections? (E.g, 1.1, 1.1.1, 1.2, etc.)
-(define %section-autolabel% 
- #t)
-
-;;What is the default extension for graphics?
-(define %graphic-default-extension% 
-  "eps")
-
-;;Show URL links? If the text of the link and the URL are identical,
-;;the parenthetical URL is suppressed.
-(define %show-ulinks%
- #t)
-
-;Make Ulinks footnotes to stop bleeding in the edges - this increases
-;'jade --> print' time tremendously keep this in mind before
-;complaining!
-(define %footnote-ulinks%
-  #t)
-
-;;Tex Backend on
-(define tex-backend 
- #t)
-
-;;Define Line Spacing
-(define %line-spacing-factor% 1.1)
-
-;;Define the Paragraph Style
-(define para-style
-  (style
-   font-size: %bf-size%
-   font-weight: 'medium
-   font-posture: 'upright
-   font-family-name: %body-font-family%
-   line-spacing: (* %bf-size% %line-spacing-factor%)))
-
-(define ($object-titles-after$)
-  (list (normalize "figure")))
-
-;;======================================
-;;Book Options
-;;======================================
-
-
-;;Do you want a title page for a Book?
-(define %generate-book-titlepage%
- #t)
-
-;;Do you want a separate page for the title?
-(define %generate-book-titlepage-on-separate-page%
- #f)
-
-;;Generate Book TOC?
-(define %generate-book-toc% 
- #t)
-
-;;What depth should the TOC generate?
-;;!Only top level of appendixes!
-(define (toc-depth nd)
-  (if (string=? (gi nd) (normalize "book"))
-      2
-      (if (string=? (gi nd) (normalize "appendix"))
-        0
-        1)))
-
-;;Do you want a TOC for the element part?
-(define %generate-part-toc% 
- #f)
-
-;;Do you want the part toc on the part titlepage or separate?
-(define %generate-part-toc-on-titlepage%
- #t)
-
-;;Generate Part Title Page?
-(define %generate-part-titlepage% 
-  #f)
-
-;;Do you want the Part intro on the part title page?
-(define %generate-partintro-on-titlepage%
-  #t)
-
-;;What elements should have a LOT?
-(define ($generate-book-lot-list$)
-  (list (normalize "equation")))
-
-;;Do you want chapters enumerated?
-(define %chapter-autolabel% 
- #t)
-
-;;Do you want Chapter's and Appendix's 
-;;to have automatic labels?
-(define %chap-app-running-head-autolabel% 
-  #t)
-
-
-;;======================================
-;;Article Options
-;;======================================
-
-;;Do you want a title page for an Article?
-(define %generate-article-titlepage%
- #t)
-
-;;Generate Article TOC?
-(define %generate-article-toc% 
- #t)
-
-;;Do you want a separate page for the title?
-(define %generate-article-titlepage-on-separate-page%
- #t)
-
-;;Do you want the article toc on the titlepage or separate?
-(define %generate-article-toc-on-titlepage%
- #t)
-
-;;Do you want to start new page numbers with each article?
-(define %article-page-number-restart%
- #f)
-
-;;Titlepage Separate?
-(define (chunk-skip-first-element-list)
-  '())
-
-;;Titlepage Not Separate
-;(define (chunk-skip-first-element-list)
-;  (list (normalize "sect1")
-;	(normalize "section")))
-
-;;======================================
-;;Columns
-;;======================================
-
-;;How many columns do you want?
-(define %page-n-columns%
- 1)
-
-;;How much space between columns?
-(define %page-column-sep%
- 0.2in)
-
-;;How many Columns on the titlepage?
-(define %titlepage-n-columns%
-  1)
-
-;;Balance columns?
-(define %page-balance-colums%
-#t)
-
-;;======================================
-;;Fonts
-;;======================================
-
-;;Defines the general size of the text in the document. normal(10),
-;;presbyopic(12), and large-type(24). 
-(define %visual-acuity%
- "normal")
-
-;;What font would you like for titles?
-(define %title-font-family% 
-  "Helvetica")
-
-;;What font would you like for the body?
-(define %body-font-family% 
- "Palatino")
-
-;;What font would you like for mono-seq?
-(define %mono-font-family% 
- "Courier New")
-
-;;If the base fontsize is 10pt, and '%hsize-bump-factor%' is
-;; 1.2, hsize 1 is 12pt, hsize 2 is 14.4pt, hsize 3 is 17.28pt, etc
-(define %hsize-bump-factor% 
- 1.1)
-
-;;What size do you want the body fonts?
-(define %bf-size%
- (case %visual-acuity%
-    (("tiny") 8pt)
-    (("normal") 10pt)
-    (("presbyopic") 12pt)
-    (("large-type") 24pt)))
-
-(define-unit em %bf-size%)
-
-;;======================================
-;;Margins
-;;======================================
-
-(define %left-right-margin% 6pi)
-
-;;How much indentation for the body?
-(define %body-start-indent% 
- 4pi)
-
-;;How big is the left margin? (relative to physical page)
-(define %left-margin% 
- 8pi) ;white-paper-column
-
-;;How big is the right margin? (relative to physical page)
-(define %right-margin% 
- 8pi) ;white-paper-column
-
-;;How big do you want the margin at the top?
-(define %top-margin%
-(if (equal? %visual-acuity% "large-type")
-      7.5pi
-      4pi))
-
-;;How big do you want the margin at the bottom?
-(define %bottom-margin% 
- (if (equal? %visual-acuity% "large-type")
-      7.5pi 
-      2pi))
-
-;;Define the text width. (Change the elements in the formula rather
-;;than the formula itself)
-;(define %text-width% (- %page-width% (* %left-right-margin% 2)))
-(define %text-width%  (- %page-width% (+ %left-margin% %right-margin%)))
-
-;;Define the body width. (Change the elements in the formula rather
-;;than the formula itself)
-(define %body-width% 
- (- %text-width% %body-start-indent%))
-
-;;Define distance between paragraphs
-(define %para-sep% 
- (/ %bf-size% 2.0))
-
-;;Define distance between block elements (figures, tables, etc.).
-(define %block-sep% 
- (* %para-sep% 2.0))
-
-;;Indent block elements?
-(define %block-start-indent% 
-  0pt)
-;0pt
-
-;;======================================
-;;Admon Graphics
-;;======================================
-
-;;Do you want admon graohics on?
-(define %admon-graphics%
- #f)
-
-;;Where are the admon graphics?
-(define %admon-graphics-path%
- "../images/")
-
-;;======================================
-;;Quadding
-;;======================================
-
-;;What quadding do you want by default; start, center, justify, or end?
-(define %default-quadding%
- 'justify)
-
-;;What quadding for component titles(Chapter, Appendix, etc)?
-(define %component-title-quadding% 
- 'start)
-
-;;What quadding for section titles?
-(define %section-title-quadding% 
- 'start)
-
-;;What quadding for section sub-titles?
-(define %section-subtitle-quadding%
- 'start)
-
-;;What quadding for article title?
-(define %article-title-quadding% 
- 'center)
-
-;;What quadding for article sub-titles?
-(define %article-subtitle-quadding%
- 'center)
-
-;;What quadding for division subtitles?
-(define %division-subtitle-quadding% 
-  'start)
-
-;;What quadding for component subtitles?
-(define %component-subtitle-quadding% 
-  'start)
-
-
-
-
-;;======================================
-;;Paper Options
-;;======================================
-
-;;What size paper do you need? A4, USletter, USlandscape, or RedHat?
-(define %paper-type%
- "A4")
-
-;;Now define those paper types' width
-(define %page-width%
- (case %paper-type%
-    (("A4") 210mm)
-    (("USletter") 8.5in)
-    (("USlandscape") 11in)))
-
-;;Now define those paper types' height
-(define %page-height%
- (case %paper-type%
-    (("A4") 297mm)
-    (("USletter") 11in)
-    (("USlandscape") 8.5in)))
-
-;;======================================
-;;Functions
-;;======================================
-
-(define (OLSTEP)
-  (case
-   (modulo (length (hierarchical-number-recursive "ORDEREDLIST")) 4)
-	((1) 1.2em)
-	((2) 1.2em)
-	((3) 1.6em)
-	((0) 1.4em)))
-
-(define (ILSTEP) 1.0em)
-
-(define (PROCSTEP ilvl)
-  (if (> ilvl 1) 1.8em 1.4em))
-
-(define (PROCWID ilvl)
-  (if (> ilvl 1) 1.8em 1.4em))
-
-
-(define ($comptitle$)
-  (make paragraph
-	font-family-name: %title-font-family%
-	font-weight: 'bold
-	font-size: (HSIZE 2)
-	line-spacing: (* (HSIZE 2) %line-spacing-factor%)
-	space-before: (* (HSIZE 2) %head-before-factor%)
-	space-after: (* (HSIZE 2) %head-after-factor%)
-	start-indent: 0pt
-	first-line-start-indent: 0pt
-	quadding: 'start
-	keep-with-next?: #t
-	(process-children-trim)))
-
-;;Callouts are confusing in Postscript... fix them.
-(define %callout-fancy-bug% 
- #f)
-
-
-;;By default perils are centered and dropped into a box with a really
-;;big border - I have simply decreased the border thickness -
-;;unfortunately it takes all this to do it - sigh.
-(define ($peril$)
-  (let* ((title     (select-elements 
-		     (children (current-node)) (normalize "title")))
-	 (has-title (not (node-list-empty? title)))
-	 (adm-title (if has-title 
-			(make sequence
-			  (with-mode title-sosofo-mode
-			    (process-node-list (node-list-first title))))
-			(literal
-			 (gentext-element-name 
-			  (current-node)))))
-	 (hs (HSIZE 2)))
-  (if %admon-graphics%
-      ($graphical-admonition$)
-      (make display-group
-	space-before: %block-sep%
-	space-after: %block-sep%
-	font-family-name: %admon-font-family%
-	font-size: (- %bf-size% 1pt)
-	font-weight: 'medium
-	font-posture: 'upright
-	line-spacing: (* (- %bf-size% 1pt) %line-spacing-factor%)
-	(make box
-	  display?: #t
-	  box-type: 'border
-	  line-thickness: .5pt
-	  start-indent: (+ (inherited-start-indent) (* 2 (ILSTEP)) 2pt)
-	  end-indent: (inherited-end-indent)
-	  (make paragraph
-	    space-before: %para-sep%
-	    space-after: %para-sep%
-	    start-indent: 1em
-	    end-indent: 1em
-	    font-family-name: %title-font-family%
-	    font-weight: 'bold
-	    font-size: hs
-	    line-spacing: (* hs %line-spacing-factor%)
-	    quadding: 'center
-	    keep-with-next?: #t
-	    adm-title)
-	  (process-children))))))
-
-
-;;======================================
-;;Non-printing Elements
-;;======================================
-(element TITLEABBREV (empty-sosofo))
-(element SUBTITLE (empty-sosofo))
-(element SETINFO (empty-sosofo))
-(element BOOKINFO (empty-sosofo))
-(element BIBLIOENTRY (empty-sosofo))
-(element BIBLIOMISC (empty-sosofo))
-(element BOOKBIBLIO (empty-sosofo))
-(element SERIESINFO (empty-sosofo))
-(element DOCINFO (empty-sosofo))
-(element ARTHEADER (empty-sosofo))
-(element ADDRESS (empty-sosofo))
-
-;;Show comment element?
-(define %show-comments%
-  #t)
-
-;;Redefine comment for LSB
-(element comment
-  (if %show-comments%
-      (make paragraph
-	start-indent: 0pt
-	first-line-start-indent: -10pt
-	font-posture: 'italic
-	font-size: (* (inherited-font-size) 0.9)
-	(make sequence
-	  (make line-field 
-	    field-width: 10pt
-	    quadding: 'center
-	    (literal "BEGIN RATIONALE:   "))
-	  (process-children))
-	(literal "END RATIONALE:   "))
-      (empty-sosofo)))
-
-;; In DocBook V4.0 comment became remark
-(element remark
-  (if %show-comments%
-      (make paragraph
-	start-indent: 0pt
-	first-line-start-indent: -10pt
-	font-posture: 'italic
-	font-size: (* (inherited-font-size) 0.9)
-	(make sequence
-	  (make line-field 
-	    field-width: 10pt
-	    quadding: 'center
-	    (literal "BEGIN RATIONALE:   "))
-	  (process-children))
-	(literal "END RATIONALE:   "))
-      (empty-sosofo)))
-
-;;======================================
-;;Formalpara titles
-;;======================================
-
-
-;;Change the way Formal Paragraph titles are displayed. The commented
-;;out section will run the titles in the paragraphs. 
-(element (formalpara title)
-  ;(make sequence
-  ;font-weight: 'bold
-  ;($runinhead$))
-  ($lowtitle$ 5))
-
-;;======================================
-;;Inlines
-;;======================================
-
-(element application ($mono-seq$))
-(element command ($bold-seq$))
-(element filename ($mono-seq$))
-(element function ($mono-seq$))
-(element guibutton ($bold-seq$))
-(element guiicon ($bold-seq$))
-(element guilabel ($italic-seq$))
-(element guimenu ($bold-seq$))
-(element guimenuitem ($bold-seq$))
-(element hardware ($bold-mono-seq$))
-(element keycap ($bold-seq$))
-(element literal ($mono-seq$))
-(element parameter ($italic-mono-seq$))
-(element prompt ($mono-seq$))
-(element symbol ($charseq$))
-(element emphasis ($italic-seq$))
-
-</style-specification-body>
-</style-specification>
-
-
-<!-- 
-;;===========================================================================
-;;                                HTML
-;;===========================================================================
--->
-
-<style-specification id="html" use="docbook">
-<style-specification-body> 
-
-;; this is necessary because right now jadetex does not understand
-;; symbolic entities, whereas things work well with numeric entities.
-(declare-characteristic preserve-sdata?
-          "UNREGISTERED::James Clark//Characteristic::preserve-sdata?"
-          #f)
-
-
-;;=========================
-;;Header HTML 4.0.1
-;;=========================
-
-(define %html-pubid% "-//W3C//DTD HTML 4.01//EN")
-
-;;=========================
-;;Common Stuff
-;;=========================
-
-;;Should there be a link to the legalnotice?
-(define %generate-legalnotice-link%
-  #t)
-
-;;What graphics extensions allowed?
-(define %graphic-extensions% 
-'("gif" "png" "jpg" "jpeg" "tif" "tiff" "eps" "epsf" ))
-
-;;What is the default extension for images?
-(define %graphic-default-extension% "png")
-
-;;Use element ids as filenames?
-(define %use-id-as-filename%
- #t)
-
-
-;;=========================
-;;Book Stuff
-;;=========================
-
-;;Do you want a TOC for Books?
-(define %generate-book-toc% 
-  #t)
-
-;;What depth should the TOC generate?
-;;!Only top level of appendixes!
-(define (toc-depth nd)
-  (if (string=? (gi nd) (normalize "book"))
-      3
-      (if (string=? (gi nd) (normalize "appendix"))
-        0
-        1)))
-
-;;What elements should have an LOT?
-(define ($generate-book-lot-list$)
-  (list (normalize "equation")))
-
-;;Do you want a title page for your Book?
-(define %generate-book-titlepage%
-#t)
-
-;;=========================
-;;Part Stuff
-;;=========================
-
-;;Should parts have TOCs?
-(define %generate-part-toc% 
-  #t)
-
-;;Should part TOCs be on their titlepages?
-(define %generate-part-toc-on-titlepage%
-  #t)
-
-;;Do you want a title page for your part?
-(define %generate-part-titlepage% 
-  #t)
-
-;;Should the Part intro be on the part title page?
-(define %generate-partintro-on-titlepage%
- #t)
-
-(define %para-autolabel%
- #t)
-
-;;========================
-;;Chapter Stuff
-;;=======================
-
-;;No TOCs in Chapters
-(define $generate-chapter-toc$
- (lambda ()
-    #f))
-
-;;=========================
-;;Navigation
-;;=========================
-
-;;Should there be navigation at top?
-(define %header-navigation%
- #t)
-
-;;Should there be navigation at bottom?
-(define %footer-navigation%
-  #t)
-
-;;Use tables to create the navigation?
-(define %gentext-nav-use-tables%
- #t)
-
-;;If tables are used for navigation, 
-;;how wide should they be? 
-(define %gentext-nav-tblwidth% 
-"100%")
-
-;;Add arrows to navigation (comment these 
-;;out if you want admon graphics here)
-(define (gentext-en-nav-prev prev) 
-  (make sequence (literal "<<< Previous")))
-
-;;Add arrows to navigation (comment these 
-;;out if you want admon graphics here)
-(define (gentext-en-nav-next next)
-  (make sequence (literal "Next >>>")))
-
-
-;;=========================
-;;Tables and Lists
-;;=========================
-
-;;Should Variable lists be tables?
-(define %always-format-variablelist-as-table%
- #f)
-
-;;What is the length of the 'Term' in a variablelist?
-(define %default-variablelist-termlength%
-  20)
-
-;;When true | If the terms are shorter than 
-;;the termlength above then the variablelist 
-;;will be formatted as a table.
-(define %may-format-variablelist-as-table%
-#f)
-
-;;This overrides the tgroup definition 
-;;(copied from 1.20, dbtable.dsl).
-;;It changes the table background color, 
-;;cell spacing and cell padding.
-;;This is based on gtk-doc additions - thanks!
-
-(element tgroup
-  (let* ((wrapper   (parent (current-node)))
-	 (frameattr (attribute-string (normalize "frame") wrapper))
-	 (pgwide    (attribute-string (normalize "pgwide") wrapper))
-	 (footnotes (select-elements (descendants (current-node)) 
-				     (normalize "footnote")))
-	 (border (if (equal? frameattr (normalize "none"))
-		     '(("BORDER" "0"))
-		     '(("BORDER" "1"))))
-	 (bgcolor '(("BGCOLOR" "#E0E0E0")))
-	 (width (if (equal? pgwide "1")
-		    (list (list "WIDTH" ($table-width$)))
-		    '()))
-	 (head (select-elements (children (current-node)) (normalize "thead")))
-	 (body (select-elements (children (current-node)) (normalize "tbody")))
-	 (feet (select-elements (children (current-node)) (normalize "tfoot"))))
-    (make element gi: "TABLE"
-	  attributes: (append
-		       border
-		       width
-		       bgcolor
-		       '(("CELLSPACING" "0"))
-		       '(("CELLPADDING" "4"))
-		       (if %cals-table-class%
-			   (list (list "CLASS" %cals-table-class%))
-			   '()))
-	  (process-node-list head)
-	  (process-node-list body)
-	  (process-node-list feet)
-	  (make-table-endnotes))))
-
-;;===================
-;; Admon Graphics
-;;===================
-
-;;Should Admon Graphics be used?
-(define %admon-graphics%
-  #t)
-
-;;Where are those admon graphics?
-(define %admon-graphics-path%
-  "./stylesheet-images/")
-
-;;Given an admonition node, returns the 
-;;name of the graphic that should
-;;be used for that admonition.
-;;Define admon graphics usage
-;;NOTE these will change to pngs 
-;;soon in the GDP when Tigert gets 
-;;the time to make special ones for us!
-(define ($admon-graphic$ #!optional (nd (current-node)))
-  (cond ((equal? (gi nd) (normalize "tip"))
-	 (string-append %admon-graphics-path% "tip.gif"))
-	((equal? (gi nd) (normalize "note"))
-	 (string-append %admon-graphics-path% "note.gif"))
-	((equal? (gi nd) (normalize "important"))
-	 (string-append %admon-graphics-path% "important.gif"))
-	((equal? (gi nd) (normalize "caution"))
-	 (string-append %admon-graphics-path% "caution.gif"))
-	((equal? (gi nd) (normalize "warning"))
-	 (string-append %admon-graphics-path% "warning.gif"))
-	(else (error (string-append (gi nd) " is not an admonition.")))))
-
-;;Given an admonition node, returns 
-;;the width of the graphic that will
-;;be used for that admonition.
-(define ($admon-graphic-width$ #!optional (nd (current-node)))
-  "25")
-
-;;=========================
-;;Labels
-;;=========================
-
-;;Enumerate Chapters?
-(define %chapter-autolabel% 
- #f)
-
-;;Enumerate Sections?
-(define %section-autolabel%
- #t)
-
-;;=========================
-;;    HTML Attributes
-;;=========================
-
-;;What attributes should be hung off 
-;;of 'body'?
-(define %body-attr%
- (list
-   (list "BGCOLOR" "#FFFFFF")
-   (list "TEXT" "#000000")
-   (list "LINK" "#0000FF")
-   (list "VLINK" "#840084")
-   (list "ALINK" "#0000FF")))
-
-;;Default extension for filenames?
-(define %html-ext% 
-  ".html")
-
-;;Use a CSS stylesheet?
-;;Which one? Should work on 
-;;this one soon
-;(define %stylesheet% 
-;        "./gnome.css")
-
-;;Use it
-;(define %stylesheet-type% 
-;"text/css")
-
-
-;;========================
-;;Title Pages for Books
-;;=======================
-
-(define (book-titlepage-recto-elements)
-  (list (normalize "title")
-	(normalize "subtitle")
-	(normalize "corpauthor")
-	(normalize "authorgroup")
-	(normalize "author")
-	(normalize "orgname")
-	(normalize "graphic")
-	(normalize "copyright")
-	(normalize "legalnotice")
-	(normalize "releaseinfo")
-	(normalize "publisher")
-	(normalize "isbn")))
-
-;;========================
-;;Title Pages for Articles
-;;========================
-
-;;Should Articles have a TOC?
-(define %generate-article-toc% 
-  #t)
-
-;;Which elements should appear 
-;;on title page?
-(define (article-titlepage-recto-elements)
-  (list (normalize "title")
-	(normalize "subtitle")
-        (normalize "authorgroup")
-        (normalize "copyright")
-        (normalize "legalnotice")
-        (normalize "abstract")))
-
-;;How should elements on title page look?
-(mode article-titlepage-recto-mode
-
-;;Author name is too big - change it!
-  (element author
-    (let ((author-name  (author-string))
-	  (author-affil (select-elements (children (current-node)) 
-					 (normalize "affiliation"))))
-      (make sequence      
-	(make element gi: "H4"
-	      attributes: (list (list "CLASS" (gi)))
-	      (make element gi: "A"
-		    attributes: (list (list "NAME" (element-id)))
-		    (literal author-name)))
-	(process-node-list author-affil))))
-
-;;Address?
-  (element address 
-    (make sequence
-      (make element gi: "DIV"
-            attributes: (list (list "CLASS" (gi)))
-            (process-children))))
-
-;;Get rid of spam-producing "mailto" links
-;;and get rid of email indentation  
-  (element email
-    (make sequence
-      (make element gi: "DIV"
-            attributes: (list (list "CLASS" (gi)))
-            (process-children))))
-
-;;Point Abstract to custom table function 
-;;(See $dcm-abstract-object$ below. For default
-;;use $semiformal-object$
-  (element abstract
-    (make element gi: "DIV"
-          ($dcm-abstract-object$)))
-
-  (element (abstract title) (empty-sosofo))
-
-;;subtitle sizing
-(element subtitle 
-  (make element gi: "H4"
-        attributes: (list (list "CLASS" (gi)))
-        (process-children-trim))))
-
-;;=================
-;;    INLINES
-;;=================
-
-;Define my own series of fonts for various elements
-(element application ($mono-seq$))
-(element command ($bold-seq$))
-(element filename ($mono-seq$))
-(element function ($mono-seq$))
-(element guibutton ($bold-seq$))
-(element guiicon ($bold-seq$))
-(element guilabel ($bold-mono-seq$))
-(element guimenu ($bold-seq$))
-(element guimenuitem ($bold-seq$))
-(element guisubmenu ($bold-seq$))
-(element hardware ($bold-mono-seq$))
-(element keycap ($bold-seq$))
-(element literal ($mono-seq$))
-(element parameter ($italic-mono-seq$))
-(element prompt ($mono-seq$))
-(element symbol ($charseq$))
-(element emphasis ($italic-seq$))
-
-;;Show comment element?
-(define %show-comments%
-  #t)
-
-;;Redefine comment element for LSB
-(element comment
-  (if %show-comments%
-      (make element gi: "TABLE"
-	    attributes: ($shade-verbatim-attr$)
-	    (make element gi: "TR"
-		  (make element gi: "TD"
-			(literal "RATIONALE:")
-			(make element gi: "P"
-			      (process-children)))))
-      (empty-sosofo)))
-
-;;In DocBook V4.0 comment became remark
-(element remark
-  (if %show-comments%
-      (make element gi: "TABLE"
-	    attributes: ($shade-verbatim-attr$)
-	    (make element gi: "TR"
-		  (make element gi: "TD"
-			(literal "RATIONALE:")
-			(make element gi: "P"
-			      (process-children)))))
-      (empty-sosofo)))
-
-;;====================
-;; General Formatting
-;;====================
-
-;;Formal Paras are ugly by default!
-;;Make the title run in - otherwise 
-;;you should use a sect!
-(element formalpara
-  (make element gi: "DIV"
-	attributes: (list
-		     (list "CLASS" (gi)))
-  	(make element gi: "P"
-	      (process-children))))
-
-;;This is the old one 
-;(element (formalpara title) 
-;($lowtitle$ 5))
-
-;;This is the new one
-(element (formalpara title) 
-  (make element gi: "B"
-	($runinhead$)))
-
-;;Make captions come after objects in the list
-(define ($object-titles-after$)
-  (list (normalize "figure")))
-
-
-;; Handle qanda labelling with Q: A:
-(define (qanda-defaultlabel)
-  (normalize "qanda"))
-
-;;From FreeBSD Sheets (Thanks!) Display Q and A in bigger bolder fonts
-
-(element question
-  (let* ((chlist   (children (current-node)))
-	 (firstch  (node-list-first chlist))
-	 (restch   (node-list-rest chlist)))
-    (make element gi: "DIV"
-	  attributes: (list (list "CLASS" (gi)))
-	  (make element gi: "P" 
-		(make element gi: "BIG"
-		      (make element gi: "A"
-			    attributes: (list
-					 (list "NAME" (element-id)))
-			    (empty-sosofo))
-		      (make element gi: "B"
-			    (literal (question-answer-label
-				      (current-node)) " ")
-			    (process-node-list (children firstch)))))
-	  (process-node-list restch))))
-
-;;Literal Elements
-
-;;Indent Literal layouts?
-(define %indent-literallayout-lines% 
-  #f)
-
-;;Indent Programlistings?
-(define %indent-programlisting-lines%
-  #f)
-
-;;Number lines in Programlistings?
-(define %number-programlisting-lines%
- #f)
-
-;;Should verbatim items be 'shaded' with a table?
-(define %shade-verbatim% 
- #t)
-
-;;Define shade-verbatim attributes
-(define ($shade-verbatim-attr$)
- (list
-  (list "BORDER" "0")
-  (list "BGCOLOR" "#E0E0E0")
-  (list "WIDTH" ($table-width$))))
-
-;;===================
-;;    Entities
-;;===================
-
-;;Netscape doesn't handle trademark 
-;;entity right at all!! Get rid of it.
-;;Make a TM in a superscipt font.
-(element trademark
-  (make sequence
-    (process-children)
-    (make element gi: "sup"
-    (literal "TM"))))
-
-
-;;===================
-;; New Definitions
-;;==================
-
-(define ($dcm-abstract-object$)
-   (make element gi: "TABLE"
-        attributes: '(("BORDER" "0")
-                      ("BGCOLOR" "#E0E0E0")
-                      ("WIDTH" "50%")
-                      ("CELLSPACING" "0")
-                      ("CELLPADDING" "0")
-                      ("ALIGN" "CENTER"))
-        (make element gi: "TR"
-              (make element gi: "TD"
-                    attributes: '(("VALIGN" "TOP"))
-                    (make element gi: "B"
-                    (literal "Abstract"))))
-        (make element gi: "TR"
-              (make element gi: "TD"
-                    attributes: '(("VALIGN" "TOP"))
-                    (process-children)))))
-
-;;Redefine Titlepage Separator on Articles
-
-(define (article-titlepage-separator side)
-  (make empty-element gi: "HR"
-  attributes: '(("WIDTH" "75%")
-                 ("ALIGN" "CENTER")
-                 ("COLOR" "#000000")
-                 ("SIZE" "1"))))
-
-
-
-
-(define (chunk-element-list)
-  (list (normalize "preface")
-	(normalize "chapter")
-	(normalize "appendix") 
-	(normalize "article")
-	(normalize "glossary")
-	(normalize "bibliography")
-	(normalize "index")
-	(normalize "colophon")
-	(normalize "setindex")
-	(normalize "reference")
-	(normalize "refentry")
-	(normalize "part")
-	(normalize "sect1") 
-	(normalize "section") 
-	(normalize "book") ;; just in case nothing else matches...
-	(normalize "set")  ;; sets are definitely chunks...
-	))
-
-;;Do you want Callouts to be graphics?
-(define %callout-graphics%
-#f)
-
-
-;;Make Callout graphics PNGs
-(define %callout-graphics-path%
-  "./imagelib/callouts/")
-
-  ;; Redefine $callout-bug$ to support the %callout-graphic-ext%
-  ;; variable.
-  (define ($callout-bug$ conumber)
-    (let ((number (if conumber (format-number conumber "1") "0")))
-      (if conumber
-          (if %callout-graphics%
-              (if (<= conumber %callout-graphics-number-limit%)
-                  (make empty-element gi: "IMG"
-                        attributes: (list (list "SRC"
-                                                (root-rel-path
-                                                 (string-append
-                                                  %callout-graphics-path%
-                                                  number
-                                                  %callout-graphics-ext%)))
-                                          (list "HSPACE" "0")
-                                          (list "VSPACE" "0")
-                                          (list "BORDER" "0")
-                                          (list "ALT"
-                                                (string-append
-                                                 "(" number ")"))))
-                  (make element gi: "B"
-                        (literal "(" (format-number conumber "1") ")")))
-              (make element gi: "B"
-                    (literal "(" (format-number conumber "1") ")")))
-          (make element gi: "B"
-         (literal "(??)")))))
-
-</style-specification-body>
-</style-specification>
-
-<external-specification id="docbook" document="docbook.dsl">
-
-</style-sheet>
diff -r ba4b50f63658 -r bc28c3bc3769 docs/os9sysprog/makefile
--- a/docs/os9sysprog/makefile	Thu Apr 24 01:24:07 2003 +0000
+++ b/docs/os9sysprog/makefile	Sun Apr 27 19:41:14 2003 +0000
@@ -1,23 +1,22 @@
 BOOK		= os9sysprog
-STYLESHEET	= docbook-utils.dsl
+STYLESHEET	= ../stylesheets/docbook-utils.dsl
 
 all:	$(BOOK).pdf
 
 $(BOOK).pdf: $(BOOK).docbook $(STYLESHEET)
-	 docbook2pdf $(BOOK).docbook
+	 docbook2pdf -d "$(STYLESHEET)#print" $(BOOK).docbook
 
 $(BOOK).ps: $(BOOK).docbook $(STYLESHEET)
-	 docbook2ps $(BOOK).docbook
-#	 docbook2ps -d "$(STYLESHEET)#print" $(BOOK).docbook
+	 docbook2ps -d "$(STYLESHEET)#print" $(BOOK).docbook
 
 $(BOOK).html: $(BOOK).docbook $(STYLESHEET)
-	rm -f *.htm *.html
+	rm -f *.html
 #	jade -t sgml -V html-index -d /usr/share/sgml/docbook/dsssl-stylesheets-1.64/html/docbook.dsl $(BOOK).docbook
 #	collateindex.pl -p -o index.docbook HTML.index
-	docbook2html $(BOOK).docbook
+	docbook2html -d "$(STYLESHEET)#html" $(BOOK).docbook
 
 print:
 	psnup -2 $(BOOK).ps | lpr
 
 clean:
-	$(RM) *.htm *.html $(BOOK).pdf $(BOOK).ps
+	$(RM) *.html $(BOOK).pdf $(BOOK).ps
diff -r ba4b50f63658 -r bc28c3bc3769 docs/os9sysprog/os9sysprog.docbook
--- a/docs/os9sysprog/os9sysprog.docbook	Thu Apr 24 01:24:07 2003 +0000
+++ b/docs/os9sysprog/os9sysprog.docbook	Sun Apr 27 19:41:14 2003 +0000
@@ -1009,7 +1009,7 @@
 
 <para>The 24-bit CRC is performed over the entire module from the first
 byte of the module header to the byte just before the CRC itself. The
-CRC polynomial used is $800FE3.</para>
+CRC polynomial used is $800063. (See <xref linkend="f.crc"/>)</para>
 
 <para>Because most OS-9 family software (such as the assembler)
 automatically generate the module header and CRC values, the
@@ -4826,7 +4826,7 @@
 character set.</para>
 </sect1>
 
-<sect1>
+<sect1 id="f.crc" xreflabel="F$CRC">
 <title>F$CRC - Compute CRC</title>
 <informaltable frame="none">
 <tgroup cols="2">
@@ -4869,6 +4869,34 @@
 
 <para>The last three bytes in the module (where the three CRC bytes will
 be stored) are not included in the CRC generation.</para>
+
+<para>The polynomial is $800063. If you perform the CRC over the module
+minus the stored CRC
+then you must exclusive-or the result with $FFFFFF to compare directly
+with the stored CRC. If you perform CRC over the module including the
+last three bytes then the result must be $800FE3.</para>
+<para>
+Example C code of CRC algorithm (with 32-bit longs):
+<programlisting>
+unsigned long compute_crc()
+    unsigned long crc;
+    unsigned char *octets;
+    int len;
+{
+    int i;
+
+    while (len--) {
+        crc ^= (*octets++) &lt;&lt; 16;
+        for (i = 0; i &lt; 8; i++) {
+            crc &lt;&lt;= 1;
+            if (crc & 0x1000000L)
+                crc ^= 0x800063L;
+        }
+    }
+    return crc & 0xffffffL;
+}
+</programlisting>
+</para>
 </sect1>
 
 <sect1>
diff -r ba4b50f63658 -r bc28c3bc3769 docs/stylesheets/article.xsl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/docs/stylesheets/article.xsl	Sun Apr 27 19:41:14 2003 +0000
@@ -0,0 +1,21 @@
+<?xml version="1.0"?>
+<!--
+  This is an example of an xmlto stylesheet module to be use when generating PDF
+  you call it with xmtto pdf -m article.xsl articles.docbook
+  I don't think it works
+-->
+<xsl:stylesheet xsl:version='1.0'
+  xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+  xmlns:fo="http://www.w3.org/1999/XSL/Format">
+
+<xsl:template match="articleinfo/title">
+  <fo:block font-family="sans-serif" color="blue"
+         font-weight="bold" font-size="18pt"
+         space-after="0.5em">
+    <xsl:number level="multiple" count="chapter"/>
+    <xsl:text> </xsl:text>
+    <xsl:apply-templates/>
+  </fo:block>
+</xsl:template>
+</xsl:stylesheet>
+
diff -r ba4b50f63658 -r bc28c3bc3769 docs/stylesheets/docbook-utils.dsl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/docs/stylesheets/docbook-utils.dsl	Sun Apr 27 19:41:14 2003 +0000
@@ -0,0 +1,1061 @@
+<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
+<!ENTITY % html "IGNORE">
+<![%html;[
+<!ENTITY % print "IGNORE">
+<!ENTITY docbook.dsl PUBLIC "-//Norman Walsh//DOCUMENT DocBook HTML Stylesheet//EN" CDATA dsssl>
+]]>
+<!ENTITY % print "INCLUDE">
+<![%print;[
+<!ENTITY docbook.dsl PUBLIC "-//Norman Walsh//DOCUMENT DocBook Print Stylesheet//EN" CDATA dsssl>
+]]>
+]>
+
+<!--
+;;#######################################################################
+;;#                                                                     #
+;;#                 The GNOME Documentation Project's                   #
+;;#                  Custion DocBook Stylesheet Layer                   #
+;;#                    by Dave Mason dcm@redhat.com                     #
+;;#            Based on Norman Walsh's Modular Stylesheets              #
+;;#                                                                     #
+;;#            This is intended as a drop-in replacement for            #
+;;#            the cygnus-both.dsl file in DocBook Tools.               #
+;;#           Just copy it to the location dbtools created              #
+;;#                   and rename it cygnus-both.dsl                     #
+;;#                                                                     #
+;;#                       This is Version 1.0-4                         #
+;;#                  patched to fix RTF output (#49677)                 #
+;;#                patched to work with docbook-dsssl-1.72              #
+;;#                 patched for ADDRESS output (#50605)                 #
+;;#                      removed comment and remark                     #
+;;#                      disabled use-id-as-filename                    #
+;;#               don't define %graphic-default-extension%              #
+;;#######################################################################
+-->
+
+<style-sheet>
+
+
+<style-specification id="print" use="docbook">
+<style-specification-body> 
+
+;;==========================================================================
+;;                               PRINT
+;;==========================================================================
+
+;;======================================
+;;General Options
+;;======================================
+
+;;Do you want to print on both sides of the paper?
+(define %two-side% 
+ #t)
+
+;;Do you want enumerated sections? (E.g, 1.1, 1.1.1, 1.2, etc.)
+(define %section-autolabel% 
+ #t)
+
+;;Show URL links? If the text of the link and the URL are identical,
+;;the parenthetical URL is suppressed.
+(define %show-ulinks%
+ #t)
+
+;Make Ulinks footnotes to stop bleeding in the edges - this increases
+;'jade --> print' time tremendously keep this in mind before
+;complaining!
+(define %footnote-ulinks%
+  #t)
+
+;;Tex Backend on
+(define tex-backend 
+ #t)
+
+;;Define Line Spacing
+(define %line-spacing-factor% 1.1)
+
+;;Define the Paragraph Style
+(define para-style
+  (style
+   font-size: %bf-size%
+   font-weight: 'medium
+   font-posture: 'upright
+   font-family-name: %body-font-family%
+   line-spacing: (* %bf-size% %line-spacing-factor%)))
+
+(define ($object-titles-after$)
+  (list (normalize "figure")))
+
+;;======================================
+;;Book Options
+;;======================================
+
+
+;;Do you want a title page for a Book?
+(define %generate-book-titlepage%
+ #t)
+
+;;Do you want a separate page for the title?
+(define %generate-book-titlepage-on-separate-page%
+ #t)
+
+;;Generate Book TOC?
+(define %generate-book-toc% 
+ #t)
+
+;;What depth should the TOC generate?
+;;!Only top level of appendixes!
+(define (toc-depth nd)
+  (if (string=? (gi nd) (normalize "book"))
+      3
+      (if (string=? (gi nd) (normalize "appendix"))
+        0
+        1)))
+
+;;Do you want a TOC for the element part?
+(define %generate-part-toc% 
+ #f)
+
+;;Do you want the part toc on the part titlepage or separate?
+(define %generate-part-toc-on-titlepage%
+ #t)
+
+;;Generate Part Title Page?
+(define %generate-part-titlepage% 
+  #f)
+
+;;Do you want the Part intro on the part title page?
+(define %generate-partintro-on-titlepage%
+  #t)
+
+;;What elements should have a LOT?
+(define ($generate-book-lot-list$)
+  (list (normalize "equation")))
+
+;;Do you want chapters enumerated?
+(define %chapter-autolabel% 
+ #t)
+
+;;Do you want Chapter's and Appendix's 
+;;to have automatic labels?
+(define %chap-app-running-head-autolabel% 
+  #t)
+
+
+;;======================================
+;;Article Options
+;;======================================
+
+;;Do you want a title page for an Article?
+(define %generate-article-titlepage%
+ #t)
+
+;;Generate Article TOC?
+(define %generate-article-toc% 
+ #t)
+
+;;Do you want a separate page for the title?
+(define %generate-article-titlepage-on-separate-page%
+ #f)
+
+;;Do you want the article toc on the titlepage or separate?
+(define %generate-article-toc-on-titlepage%
+ #t)
+
+;;Do you want to start new page numbers with each article?
+(define %article-page-number-restart%
+ #f)
+
+;;Titlepage Separate?
+(define (chunk-skip-first-element-list)
+  '())
+
+;;Titlepage Not Separate
+;(define (chunk-skip-first-element-list)
+;  (list (normalize "sect1")
+;	(normalize "section")))
+
+;;======================================
+;;Columns
+;;======================================
+
+;;How many columns do you want?
+(define %page-n-columns%
+ 1)
+
+;;How much space between columns?
+(define %page-column-sep%
+ 0.2in)
+
+;;How many Columns on the titlepage?
+(define %titlepage-n-columns%
+  1)
+
+;;Balance columns?
+(define %page-balance-colums%
+#t)
+
+;;======================================
+;;Fonts
+;;======================================
+
+;;Defines the general size of the text in the document. normal(10),
+;;presbyopic(12), and large-type(24). 
+(define %visual-acuity%
+ "normal")
+
+;;What font would you like for titles?
+(define %title-font-family% 
+  "Helvetica")
+
+;;What font would you like for the body?
+(define %body-font-family% 
+ "Palatino")
+
+;;What font would you like for mono-seq?
+(define %mono-font-family% 
+ "Courier New")
+
+;;If the base fontsize is 10pt, and '%hsize-bump-factor%' is
+;; 1.2, hsize 1 is 12pt, hsize 2 is 14.4pt, hsize 3 is 17.28pt, etc
+(define %hsize-bump-factor% 
+ 1.1)
+
+;;What size do you want the body fonts?
+(define %bf-size%
+ (case %visual-acuity%
+    (("tiny") 8pt)
+    (("normal") 10pt)
+    (("presbyopic") 12pt)
+    (("large-type") 24pt)))
+
+(define-unit em %bf-size%)
+
+;;======================================
+;;Margins
+;;======================================
+
+(define %left-right-margin% 6pi)
+
+;;How much indentation for the body?
+(define %body-start-indent% 
+ 4pi)
+
+;;How big is the left margin? (relative to physical page)
+(define %left-margin% 
+ 8pi) ;white-paper-column
+
+;;How big is the right margin? (relative to physical page)
+(define %right-margin% 
+ 8pi) ;white-paper-column
+
+;;How big do you want the margin at the top?
+(define %top-margin%
+(if (equal? %visual-acuity% "large-type")
+      7.5pi
+      6pi))
+
+;;How big do you want the margin at the bottom?
+(define %bottom-margin% 
+ (if (equal? %visual-acuity% "large-type")
+      7.5pi 
+      5pi))
+
+;;Define the text width. (Change the elements in the formula rather
+;;than the formula itself)
+;(define %text-width% (- %page-width% (* %left-right-margin% 2)))
+(define %text-width%  (- %page-width% (+ %left-margin% %right-margin%)))
+
+;;Define the body width. (Change the elements in the formula rather
+;;than the formula itself)
+(define %body-width% 
+ (- %text-width% %body-start-indent%))
+
+;;Define distance between paragraphs
+(define %para-sep% 
+ (/ %bf-size% 2.0))
+
+;;Define distance between block elements (figures, tables, etc.).
+(define %block-sep% 
+ (* %para-sep% 2.0))
+
+;;Indent block elements?
+(define %block-start-indent% 
+  0pt)
+;0pt
+
+;;======================================
+;;Admon Graphics
+;;======================================
+
+;;Do you want admon graohics on?
+(define %admon-graphics%
+ #f)
+
+;;Where are the admon graphics?
+(define %admon-graphics-path%
+ "../images/")
+
+;;======================================
+;;Quadding
+;;======================================
+
+;;What quadding do you want by default; start, center, justify, or end?
+(define %default-quadding%
+ 'justify)
+
+;;What quadding for component titles(Chapter, Appendix, etc)?
+(define %component-title-quadding% 
+ 'start)
+
+;;What quadding for section titles?
+(define %section-title-quadding% 
+ 'start)
+
+;;What quadding for section sub-titles?
+(define %section-subtitle-quadding%
+ 'start)
+
+;;What quadding for article title?
+(define %article-title-quadding% 
+ 'center)
+
+;;What quadding for article sub-titles?
+(define %article-subtitle-quadding%
+ 'center)
+
+;;What quadding for division subtitles?
+(define %division-subtitle-quadding% 
+  'start)
+
+;;What quadding for component subtitles?
+(define %component-subtitle-quadding% 
+  'start)
+
+
+
+
+;;======================================
+;;Paper Options
+;;======================================
+
+;;What size paper do you need? A4, USletter, USlandscape, or RedHat?
+(define %paper-type%
+ "USletter")
+
+;;Now define those paper types' width
+(define %page-width%
+ (case %paper-type%
+    (("A4") 210mm)
+    (("USletter") 8.5in)
+    (("USlandscape") 11in)))
+
+;;Now define those paper types' height
+(define %page-height%
+ (case %paper-type%
+    (("A4") 297mm)
+    (("USletter") 11in)
+    (("USlandscape") 8.5in)))
+
+;;======================================
+;;Functions
+;;======================================
+
+(define (OLSTEP)
+  (case
+   (modulo (length (hierarchical-number-recursive "ORDEREDLIST")) 4)
+	((1) 1.2em)
+	((2) 1.2em)
+	((3) 1.6em)
+	((0) 1.4em)))
+
+(define (ILSTEP) 1.0em)
+
+(define (PROCSTEP ilvl)
+  (if (> ilvl 1) 1.8em 1.4em))
+
+(define (PROCWID ilvl)
+  (if (> ilvl 1) 1.8em 1.4em))
+
+
+(define ($comptitle$)
+  (make paragraph
+	font-family-name: %title-font-family%
+	font-weight: 'bold
+	font-size: (HSIZE 2)
+	line-spacing: (* (HSIZE 2) %line-spacing-factor%)
+	space-before: (* (HSIZE 2) %head-before-factor%)
+	space-after: (* (HSIZE 2) %head-after-factor%)
+	start-indent: 0pt
+	first-line-start-indent: 0pt
+	quadding: 'start
+	keep-with-next?: #t
+	(process-children-trim)))
+
+;;Callouts are confusing in Postscript... fix them.
+(define %callout-fancy-bug% 
+ #f)
+
+
+;;By default perils are centered and dropped into a box with a really
+;;big border - I have simply decreased the border thickness -
+;;unfortunately it takes all this to do it - sigh.
+(define ($peril$)
+  (let* ((title     (select-elements 
+		     (children (current-node)) (normalize "title")))
+	 (has-title (not (node-list-empty? title)))
+	 (adm-title (if has-title 
+			(make sequence
+			  (with-mode title-sosofo-mode
+			    (process-node-list (node-list-first title))))
+			(literal
+			 (gentext-element-name 
+			  (current-node)))))
+	 (hs (HSIZE 2)))
+  (if %admon-graphics%
+      ($graphical-admonition$)
+      (make display-group
+	space-before: %block-sep%
+	space-after: %block-sep%
+	font-family-name: %admon-font-family%
+	font-size: (- %bf-size% 1pt)
+	font-weight: 'medium
+	font-posture: 'upright
+	line-spacing: (* (- %bf-size% 1pt) %line-spacing-factor%)
+	(make box
+	  display?: #t
+	  box-type: 'border
+	  line-thickness: .5pt
+	  start-indent: (+ (inherited-start-indent) (* 2 (ILSTEP)) 2pt)
+	  end-indent: (inherited-end-indent)
+	  (make paragraph
+	    space-before: %para-sep%
+	    space-after: %para-sep%
+	    start-indent: 1em
+	    end-indent: 1em
+	    font-family-name: %title-font-family%
+	    font-weight: 'bold
+	    font-size: hs
+	    line-spacing: (* hs %line-spacing-factor%)
+	    quadding: 'center
+	    keep-with-next?: #t
+	    adm-title)
+	  (process-children))))))
+
+
+;;======================================
+;;Non-printing Elements
+;;======================================
+(element TITLEABBREV (empty-sosofo))
+(element SUBTITLE (empty-sosofo))
+(element SETINFO (empty-sosofo))
+(element BOOKINFO (empty-sosofo))
+(element BIBLIOENTRY (empty-sosofo))
+(element BIBLIOMISC (empty-sosofo))
+(element BOOKBIBLIO (empty-sosofo))
+(element SERIESINFO (empty-sosofo))
+(element DOCINFO (empty-sosofo))
+(element ARTHEADER (empty-sosofo))
+;;(element ADDRESS (empty-sosofo))
+
+;;Show comment element?
+(define %show-comments%
+  #t)
+
+;;======================================
+;;Formalpara titles
+;;======================================
+
+
+;;Change the way Formal Paragraph titles are displayed. The commented
+;;out section will run the titles in the paragraphs. 
+(element (formalpara title)
+  ;(make sequence
+  ;font-weight: 'bold
+  ;($runinhead$))
+  ($lowtitle$ 5 7))
+
+;;======================================
+;;Inlines
+;;======================================
+
+(element application ($mono-seq$))
+(element command ($bold-seq$))
+(element filename ($mono-seq$))
+(element function ($mono-seq$))
+(element guibutton ($bold-seq$))
+(element guiicon ($bold-seq$))
+(element guilabel ($italic-seq$))
+(element guimenu ($bold-seq$))
+(element guimenuitem ($bold-seq$))
+(element hardware ($bold-mono-seq$))
+(element keycap ($bold-seq$))
+(element literal ($mono-seq$))
+(element parameter ($italic-mono-seq$))
+(element prompt ($mono-seq$))
+(element symbol ($charseq$))
+(element emphasis ($italic-seq$))
+
+</style-specification-body>
+</style-specification>
+
+
+<!-- 
+;;===========================================================================
+;;                                HTML
+;;===========================================================================
+-->
+
+<style-specification id="html" use="docbook">
+<style-specification-body> 
+
+;; this is necessary because right now jadetex does not understand
+;; symbolic entities, whereas things work well with numeric entities.
+(declare-characteristic preserve-sdata?
+          "UNREGISTERED::James Clark//Characteristic::preserve-sdata?"
+          #f)
+
+
+;;=========================
+;;Header HTML 4.0.1
+;;=========================
+
+(define %html-pubid% "-//W3C//DTD HTML 4.01//EN")
+
+;;=========================
+;;Common Stuff
+;;=========================
+
+;;Should there be a link to the legalnotice?
+(define %generate-legalnotice-link%
+  #t)
+
+;;What graphics extensions allowed?
+(define %graphic-extensions% 
+'("gif" "png" "jpg" "jpeg" "tif" "tiff" "eps" "epsf" ))
+
+;;What is the default extension for images?
+(define %graphic-default-extension% "png")
+
+;;Use element ids as filenames?
+(define %use-id-as-filename%
+ #t)
+
+
+;;=========================
+;;Book Stuff
+;;=========================
+
+;;Do you want a TOC for Books?
+(define %generate-book-toc% 
+  #t)
+
+;;What depth should the TOC generate?
+;;!Only top level of appendixes!
+(define (toc-depth nd)
+  (if (string=? (gi nd) (normalize "book"))
+      3
+      (if (string=? (gi nd) (normalize "appendix"))
+        0
+        1)))
+
+;;What elements should have an LOT?
+(define ($generate-book-lot-list$)
+  (list (normalize "equation")))
+
+;;Do you want a title page for your Book?
+(define %generate-book-titlepage%
+#t)
+
+;;=========================
+;;Part Stuff
+;;=========================
+
+;;Should parts have TOCs?
+(define %generate-part-toc% 
+  #t)
+
+;;Should part TOCs be on their titlepages?
+(define %generate-part-toc-on-titlepage%
+  #t)
+
+;;Do you want a title page for your part?
+(define %generate-part-titlepage% 
+  #t)
+
+;;Should the Part intro be on the part title page?
+(define %generate-partintro-on-titlepage%
+ #t)
+
+(define %para-autolabel%
+ #t)
+
+;;========================
+;;Chapter Stuff
+;;=======================
+
+;;No TOCs in Chapters
+(define $generate-chapter-toc$
+ (lambda ()
+    #f))
+
+;;=========================
+;;Navigation
+;;=========================
+
+;;Should there be navigation at top?
+(define %header-navigation%
+ #t)
+
+;;Should there be navigation at bottom?
+(define %footer-navigation%
+  #t)
+
+;;Use tables to create the navigation?
+(define %gentext-nav-use-tables%
+ #t)
+
+;;If tables are used for navigation, 
+;;how wide should they be? 
+(define %gentext-nav-tblwidth% 
+"100%")
+
+;;Add arrows to navigation (comment these 
+;;out if you want admon graphics here)
+(define (gentext-en-nav-prev prev) 
+  (make sequence (literal "<<< Previous")))
+
+;;Add arrows to navigation (comment these 
+;;out if you want admon graphics here)
+(define (gentext-en-nav-next next)
+  (make sequence (literal "Next >>>")))
+
+
+;;=========================
+;;Tables and Lists
+;;=========================
+
+;;Should Variable lists be tables?
+(define %always-format-variablelist-as-table%
+ #f)
+
+;;What is the length of the 'Term' in a variablelist?
+(define %default-variablelist-termlength%
+  20)
+
+;;When true | If the terms are shorter than 
+;;the termlength above then the variablelist 
+;;will be formatted as a table.
+(define %may-format-variablelist-as-table%
+#f)
+
+;;This overrides the tgroup definition 
+;;(copied from 1.20, dbtable.dsl).
+;;It changes the table background color, 
+;;cell spacing and cell padding.
+;;This is based on gtk-doc additions - thanks!
+
+(element tgroup
+  (let* ((wrapper   (parent (current-node)))
+	 (frameattr (attribute-string (normalize "frame") wrapper))
+	 (pgwide    (attribute-string (normalize "pgwide") wrapper))
+	 (footnotes (select-elements (descendants (current-node)) 
+				     (normalize "footnote")))
+	 (border (if (equal? frameattr (normalize "none"))
+		     '(("BORDER" "0"))
+		     '(("BORDER" "1"))))
+	 (bgcolor '(("BGCOLOR" "#E0E0E0")))
+	 (width (if (equal? pgwide "1")
+		    (list (list "WIDTH" ($table-width$)))
+		    '()))
+	 (head (select-elements (children (current-node)) (normalize "thead")))
+	 (body (select-elements (children (current-node)) (normalize "tbody")))
+	 (feet (select-elements (children (current-node)) (normalize "tfoot"))))
+    (make element gi: "TABLE"
+	  attributes: (append
+		       border
+		       width
+		       bgcolor
+		       '(("CELLSPACING" "0"))
+		       '(("CELLPADDING" "4"))
+		       (if %cals-table-class%
+			   (list (list "CLASS" %cals-table-class%))
+			   '()))
+	  (process-node-list head)
+	  (process-node-list body)
+	  (process-node-list feet)
+	  (make-table-endnotes))))
+
+;;===================
+;; Admon Graphics
+;;===================
+
+;;Should Admon Graphics be used?
+(define %admon-graphics%
+  #t)
+
+;;Where are those admon graphics?
+(define %admon-graphics-path%
+  "./stylesheet-images/")
+
+;;Given an admonition node, returns the 
+;;name of the graphic that should
+;;be used for that admonition.
+;;Define admon graphics usage
+;;NOTE these will change to pngs 
+;;soon in the GDP when Tigert gets 
+;;the time to make special ones for us!
+(define ($admon-graphic$ #!optional (nd (current-node)))
+  (cond ((equal? (gi nd) (normalize "tip"))
+	 (string-append %admon-graphics-path% "tip.gif"))
+	((equal? (gi nd) (normalize "note"))
+	 (string-append %admon-graphics-path% "note.gif"))
+	((equal? (gi nd) (normalize "important"))
+	 (string-append %admon-graphics-path% "important.gif"))
+	((equal? (gi nd) (normalize "caution"))
+	 (string-append %admon-graphics-path% "caution.gif"))
+	((equal? (gi nd) (normalize "warning"))
+	 (string-append %admon-graphics-path% "warning.gif"))
+	(else (error (string-append (gi nd) " is not an admonition.")))))
+
+;;Given an admonition node, returns 
+;;the width of the graphic that will
+;;be used for that admonition.
+(define ($admon-graphic-width$ #!optional (nd (current-node)))
+  "25")
+
+;;=========================
+;;Labels
+;;=========================
+
+;;Enumerate Chapters?
+(define %chapter-autolabel% 
+ #t)
+
+;;Enumerate Sections?
+(define %section-autolabel%
+ #t)
+
+;;=========================
+;;    HTML Attributes
+;;=========================
+
+;;What attributes should be hung off 
+;;of 'body'?
+(define %body-attr%
+ (list
+   (list "BGCOLOR" "#FFFFFF")
+   (list "TEXT" "#000000")
+   (list "LINK" "#0000FF")
+   (list "VLINK" "#840084")
+   (list "ALINK" "#0000FF")))
+
+;;Default extension for filenames?
+(define %html-ext% 
+  ".html")
+
+;;Use a CSS stylesheet?
+;;Which one? Should work on 
+;;this one soon
+;(define %stylesheet% 
+;        "./gnome.css")
+
+;;Use it
+;(define %stylesheet-type% 
+;"text/css")
+
+
+;;========================
+;;Title Pages for Books
+;;=======================
+
+(define (book-titlepage-recto-elements)
+  (list (normalize "title")
+	(normalize "subtitle")
+	(normalize "corpauthor")
+	(normalize "authorgroup")
+	(normalize "author")
+	(normalize "orgname")
+	(normalize "graphic")
+	(normalize "copyright")
+	(normalize "legalnotice")
+	(normalize "releaseinfo")
+	(normalize "publisher")
+	(normalize "isbn")))
+
+;;========================
+;;Title Pages for Articles
+;;========================
+
+;;Should Articles have a TOC?
+(define %generate-article-toc% 
+  #t)
+
+;;Which elements should appear 
+;;on title page?
+(define (article-titlepage-recto-elements)
+  (list (normalize "title")
+	(normalize "subtitle")
+        (normalize "authorgroup")
+        (normalize "copyright")
+        (normalize "legalnotice")
+        (normalize "abstract")))
+
+;;How should elements on title page look?
+(mode article-titlepage-recto-mode
+
+;;Author name is too big - change it!
+  (element author
+    (let ((author-name  (author-string))
+	  (author-affil (select-elements (children (current-node)) 
+					 (normalize "affiliation"))))
+      (make sequence      
+	(make element gi: "H4"
+	      attributes: (list (list "CLASS" (gi)))
+	      (make element gi: "A"
+		    attributes: (list (list "NAME" (element-id)))
+		    (literal author-name)))
+	(process-node-list author-affil))))
+
+;;Address?
+  (element address 
+    (make sequence
+      (make element gi: "DIV"
+            attributes: (list (list "CLASS" (gi)))
+            (process-children))))
+
+;;Get rid of spam-producing "mailto" links
+;;and get rid of email indentation  
+  (element email
+    (make sequence
+      (make element gi: "DIV"
+            attributes: (list (list "CLASS" (gi)))
+            (process-children))))
+
+;;Point Abstract to custom table function 
+;;(See $dcm-abstract-object$ below. For default
+;;use $semiformal-object$
+  (element abstract
+    (make element gi: "DIV"
+          ($dcm-abstract-object$)))
+
+  (element (abstract title) (empty-sosofo))
+
+;;subtitle sizing
+(element subtitle 
+  (make element gi: "H4"
+        attributes: (list (list "CLASS" (gi)))
+        (process-children-trim))))
+
+;;=================
+;;    INLINES
+;;=================
+
+;Define my own series of fonts for various elements
+(element application ($mono-seq$))
+(element command ($bold-seq$))
+(element filename ($mono-seq$))
+(element function ($mono-seq$))
+(element guibutton ($bold-seq$))
+(element guiicon ($bold-seq$))
+(element guilabel ($bold-mono-seq$))
+(element guimenu ($bold-seq$))
+(element guimenuitem ($bold-seq$))
+(element guisubmenu ($bold-seq$))
+(element hardware ($bold-mono-seq$))
+(element keycap ($bold-seq$))
+(element literal ($mono-seq$))
+(element parameter ($italic-mono-seq$))
+(element prompt ($mono-seq$))
+(element symbol ($charseq$))
+(element emphasis ($italic-seq$))
+
+;;Show comment element?
+(define %show-comments%
+  #t)
+
+;;====================
+;; General Formatting
+;;====================
+
+;;Formal Paras are ugly by default!
+;;Make the title run in - otherwise 
+;;you should use a sect!
+(element formalpara
+  (make element gi: "DIV"
+	attributes: (list
+		     (list "CLASS" (gi)))
+  	(make element gi: "P"
+	      (process-children))))
+
+;;This is the old one 
+;(element (formalpara title) 
+;($lowtitle$ 5))
+
+;;This is the new one
+(element (formalpara title) 
+  (make element gi: "B"
+	($runinhead$)))
+
+;;Make captions come after objects in the list
+(define ($object-titles-after$)
+  (list (normalize "figure")))
+
+
+;; Handle qanda labelling with Q: A:
+(define (qanda-defaultlabel)
+  (normalize "qanda"))
+
+;;From FreeBSD Sheets (Thanks!) Display Q and A in bigger bolder fonts
+
+(element question
+  (let* ((chlist   (children (current-node)))
+	 (firstch  (node-list-first chlist))
+	 (restch   (node-list-rest chlist)))
+    (make element gi: "DIV"
+	  attributes: (list (list "CLASS" (gi)))
+	  (make element gi: "P" 
+		(make element gi: "BIG"
+		      (make element gi: "A"
+			    attributes: (list
+					 (list "NAME" (element-id)))
+			    (empty-sosofo))
+		      (make element gi: "B"
+			    (literal (question-answer-label
+				      (current-node)) " ")
+			    (process-node-list (children firstch)))))
+	  (process-node-list restch))))
+
+;;Literal Elements
+
+;;Indent Literal layouts?
+(define %indent-literallayout-lines% 
+  #f)
+
+;;Indent Programlistings?
+(define %indent-programlisting-lines%
+  #f)
+
+;;Number lines in Programlistings?
+(define %number-programlisting-lines%
+ #f)
+
+;;Should verbatim items be 'shaded' with a table?
+(define %shade-verbatim% 
+ #t)
+
+;;Define shade-verbatim attributes
+(define ($shade-verbatim-attr$)
+ (list
+  (list "BORDER" "0")
+  (list "BGCOLOR" "#E0E0E0")
+  (list "WIDTH" ($table-width$))))
+
+;;===================
+;;    Entities
+;;===================
+
+;;Netscape doesn't handle trademark 
+;;entity right at all!! Get rid of it.
+;;Make a TM in a superscipt font.
+(element trademark
+  (make sequence
+    (process-children)
+    (make element gi: "sup"
+    (literal "TM"))))
+
+
+;;===================
+;; New Definitions
+;;==================
+
+(define ($dcm-abstract-object$)
+   (make element gi: "TABLE"
+        attributes: '(("BORDER" "0")
+                      ("BGCOLOR" "#E0E0E0")
+                      ("WIDTH" "50%")
+                      ("CELLSPACING" "0")
+                      ("CELLPADDING" "0")
+                      ("ALIGN" "CENTER"))
+        (make element gi: "TR"
+              (make element gi: "TD"
+                    attributes: '(("VALIGN" "TOP"))
+                    (make element gi: "B"
+                    (literal "Abstract"))))
+        (make element gi: "TR"
+              (make element gi: "TD"
+                    attributes: '(("VALIGN" "TOP"))
+                    (process-children)))))
+
+;;Redefine Titlepage Separator on Articles
+
+(define (article-titlepage-separator side)
+  (make empty-element gi: "HR"
+  attributes: '(("WIDTH" "75%")
+                 ("ALIGN" "CENTER")
+                 ("COLOR" "#000000")
+                 ("SIZE" "1"))))
+
+
+
+
+(define (chunk-element-list)
+  (list (normalize "preface")
+	(normalize "chapter")
+	(normalize "appendix") 
+	(normalize "article")
+	(normalize "glossary")
+	(normalize "bibliography")
+	(normalize "index")
+	(normalize "colophon")
+	(normalize "setindex")
+	(normalize "reference")
+	(normalize "refentry")
+	(normalize "part")
+	(normalize "sect1") 
+	(normalize "section") 
+	(normalize "book") ;; just in case nothing else matches...
+	(normalize "set")  ;; sets are definitely chunks...
+	))
+
+;;Do you want Callouts to be graphics?
+(define %callout-graphics%
+#f)
+
+
+;;Make Callout graphics PNGs
+(define %callout-graphics-path%
+  "./imagelib/callouts/")
+
+  ;; Redefine $callout-bug$ to support the %callout-graphic-ext%
+  ;; variable.
+  (define ($callout-bug$ conumber)
+    (let ((number (if conumber (format-number conumber "1") "0")))
+      (if conumber
+          (if %callout-graphics%
+              (if (<= conumber %callout-graphics-number-limit%)
+                  (make empty-element gi: "IMG"
+                        attributes: (list (list "SRC"
+                                                (root-rel-path
+                                                 (string-append
+                                                  %callout-graphics-path%
+                                                  number
+                                                  %callout-graphics-ext%)))
+                                          (list "HSPACE" "0")
+                                          (list "VSPACE" "0")
+                                          (list "BORDER" "0")
+                                          (list "ALT"
+                                                (string-append
+                                                 "(" number ")"))))
+                  (make element gi: "B"
+                        (literal "(" (format-number conumber "1") ")")))
+              (make element gi: "B"
+                    (literal "(" (format-number conumber "1") ")")))
+          (make element gi: "B"
+         (literal "(??)")))))
+
+</style-specification-body>
+</style-specification>
+
+<external-specification id="docbook" document="docbook.dsl">
+
+</style-sheet>
diff -r ba4b50f63658 -r bc28c3bc3769 docs/stylesheets/replaceable.xsl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/docs/stylesheets/replaceable.xsl	Sun Apr 27 19:41:14 2003 +0000
@@ -0,0 +1,16 @@
+<?xml version='1.0'?>
+<!-- vim:set sts=2 shiftwidth=2 syntax=sgml: -->
+<!--
+  This is an example of an xmlto stylesheet module to be use when generating HTML
+  you call it with xmtto pdf -m replaceable.xsl articles.docbook
+  Instead of using italics for the <replaceable> element it uses < and >
+-->
+<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+                version='1.0'>
+<xsl:template match="replaceable">
+<xsl:text>&lt;</xsl:text>
+<xsl:apply-templates/>
+<xsl:text>&gt;</xsl:text>
+</xsl:template>
+
+</xsl:stylesheet>