Auto-font sizing for monospace.verbatim.properties font-size?

[David Nedrow <listbox@nedron.net>]

I have a number of pre-formatted sections in documents that have been  
marked up with DocBook XML V4.4. I'm using XEP 4.4 with v 1.68.1 of  
the XSL stylesheets.

Here's an example block:

<programlisting>
<![CDATA[
# Do not remove the following line, or various programs
# that require network functionality will fail.
127.0.0.1               localhost.localdomain localhost
123.45.67.89            foobox.geelink.com foobox
]]>
</programlisting>

Currently, I use a "master" override for the entire stylesheet set to  
get all of the blocks to fit within the FO output. Here's my setup  
for monospace.verbatim.properties:

     <xsl:attribute-set name="monospace.verbatim.properties"
         use-attribute-sets="verbatim.properties          
monospace.properties">
         <xsl:attribute name="font-family">OCRAStd</xsl:attribute>
         <xsl:attribute name="font-size">55%</xsl:attribute>
         <xsl:attribute name="text-align">start</xsl:attribute>
         <xsl:attribute name="wrap-option">no-wrap</xsl:attribute>
         <!--        <xsl:attribute name="border-color">#0000FF</ 
xsl:attribute>
         <xsl:attribute name="border-style">solid</xsl:attribute>
         <xsl:attribute name="border-width">medium</xsl:attribute>
         <xsl:attribute name="background-color">#F0F0F0</ 
xsl:attribute>-->
     </xsl:attribute-set>

Is there a way to basically "automate" this such that a maximum font  
size is used, unless the block won't fit unwrapped, in which case the  
font would automatically be scaled so that the block will fit without  
wrapping?

Any thoughts?

-David