xml-axkit-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From jw...@apache.org
Subject cvs commit: xml-axkit/lib/Apache/AxKit/Language XPathScript.pm
Date Mon, 25 Mar 2002 14:52:20 GMT
jwalt       02/03/25 06:52:20

  Modified:    lib/Apache/AxKit/Language XPathScript.pm
  Log:
  adjust XPS compiler to new return semantics
  
  Revision  Changes    Path
  1.3       +10 -8     xml-axkit/lib/Apache/AxKit/Language/XPathScript.pm
  
  Index: XPathScript.pm
  ===================================================================
  RCS file: /home/cvs/xml-axkit/lib/Apache/AxKit/Language/XPathScript.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- XPathScript.pm	25 Mar 2002 14:06:09 -0000	1.2
  +++ XPathScript.pm	25 Mar 2002 14:52:20 -0000	1.3
  @@ -1,4 +1,4 @@
  -# $Id: XPathScript.pm,v 1.2 2002/03/25 14:06:09 jwalt Exp $
  +# $Id: XPathScript.pm,v 1.3 2002/03/25 14:52:20 jwalt Exp $
   
   package Apache::AxKit::Language::XPathScript;
   
  @@ -267,11 +267,13 @@
               'my ($r, $xp, $t) = @_;',
               "\n#line 1 " . $provider->key() . "\n",
               $script,
  +            ";\n",
  +            'return Apache::Constants::OK;',
               "\n}",
               );
  -    
  +
       local $^W;
  -    
  +
       AxKit::Debug(10, "Compiling script:\n$eval\n");
       eval $eval;
       if ($@) {
  @@ -286,7 +288,7 @@
       # return if already included
       my $key = $provider->key();
       return '' if grep {$_ eq $filename} @{$stash->{$key}{includes}};
  -    
  +
       push @{$stash->{$key}{includes}}, $filename;
       
       my $inc_provider = Apache::AxKit::Provider->new(
  @@ -468,7 +470,7 @@
       sub matches {
           $Apache::AxKit::Language::XPathScript::xp->matches(@_);
       }
  -    
  +
       sub set_namespace {
           eval {
               $Apache::AxKit::Language::XPathScript::xp->set_namespace(@_);
  @@ -528,7 +530,7 @@
           
           return $retval;
       }
  -    
  +
       sub translate_node {
           my $node = shift;
           
  @@ -588,7 +590,7 @@
                   return empty_tag($node);
               }
           }
  -        
  +
           local $^W;
           
           my $dokids = 1;
  @@ -656,7 +658,7 @@
           my $post = interpolate($node, $trans->{postchildren}, $testcode_output) .
                   ($trans->{showtag} ? end_tag($node) : '') .
                   interpolate($node, $trans->{post}, $testcode_output);
  -        
  +
           if ($dokids) {
               my $middle = '';
               for my $kid ($node->getChildNodes()) {
  
  
  

Mime
View raw message