That is excellent. I've been looking for something just like this.
Thanks!
Riley
----- Original Message -----
From: "brian wheeler" <[EMAIL PROTECTED]>
To: "Riley James" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Friday, August 09, 2002 10:16 AM
Subject: Re: AxAdd*Processor and the axkit:// scheme
> On Fri, 2002-08-09 at 06:14, Riley James wrote:
> > I noticed mention of "AxAddDynamicProcessor" in the CONTRIB file of the
> > distribution, but can't find any information on what it is or does.
Could
> > someone enlighten me?
> >
>
> I added to to solve a problem I had: All of our files have the same
> extension and same root node...but the contents vary quite a bit.
> Basically we have a meta_info block and then a document block. The
> meta_info block we use to describe what's in the rest of the file and
> where to start processing the 'real' document.
>
> AxAddDynamicProcessor allows you to hook into the stylesheet selection
> process and base your stylesheet on something else. In our case, the
> stylesheet is based on the selected style (which falls back to 'default'
> if none is selected) and the document type (which can be derived from
> /icpac/meta_info/root_node/text()). So for documents which have a
> root_node value of "/icpac/college_profile" and the selected style is
> 'default', then the stylesheet chosen is
> "/stylesheets/default-college_profile.xps". This allows us to add
> styles and document types without having to mess with the contents of
> already existing files.
>
>
> Here's our handler for AxAddDynamicProcessor. It also adds a latex->pdf
> converter in the chain if the preferred style is pdf.
>
> ---------------------------------------------------------------
> package ICPAC::RootNode_Processor;
>
> # return list of anonymous hashes like:
> # {type=>'',media=>'',title=>'',href=>'',alternate=>''}
>
> my $STYLESHEET_ROOT="/stylesheets";
> my $DEFAULT_STYLE="default";
>
> sub handler {
> my($provider,$media,$style,$doctype,$dtd,$root)=@_;
> my($document)=$ {$provider->get_strref()};
> $document=~m/<root_node>(.+)<\/root_node>/;
> my($root_node)=$1;
> $root_node=substr($root_node,rindex($root_node,"/")+1);
> my($mstyle)=$style;
> $mstyle=~s/\#//;
> my($filename);
> if(!-e "$ENV{DOCUMENT_HOME}/$STYLESHEET_ROOT/$mstyle-$root_node.xps")
{
> print STDERR "****
$ENV{DOCUMENT_HOME}/$STYLESHEET_ROOT/$mstyle-$root_node.xps doesn't
exist...using default!\n";
> $mstyle=$DEFAULT_STYLE;
> }
> print STDERR "**** Chosen stylesheet: $mstyle-$root_node.xps\n"
if(!$ENV{PRODUCTION});
>
> my @styles;
> push(@styles,{'type'=>'application/x-xpathscript',
> 'href'=>"$STYLESHEET_ROOT/$mstyle-$root_node.xps",
> 'title'=>$style,
> 'alternate'=>0});
>
> if($mstyle eq "pdf") {
> push(@styles,{'type'=>'text/latex',
> 'href'=>'NULL',
> 'title'=>$style,
> 'alternate'=>0});
> }
>
> return @styles;
>
> }
>
> 1;
> --------------------------------------------------------
>
>
> Brian
>
>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
