[SVN] [69] Fix pipelined transform() to work on previous stage's output

[ma...@sergeant.org]

Revision: 69
Author:   matt
Date:     2006-08-09 22:23:12 +0000 (Wed, 09 Aug 2006)

Log Message:
-----------
Fix pipelined transform() to work on previous stage's output
Add initial hack version of trace intermediate.
Incrememt $pos

Modified Paths:
--------------
    trunk/lib/AxKit2/Processor.pm

Modified: trunk/lib/AxKit2/Processor.pm
===================================================================
--- trunk/lib/AxKit2/Processor.pm	2006-08-09 22:21:48 UTC (rev 68)
+++ trunk/lib/AxKit2/Processor.pm	2006-08-09 22:23:12 UTC (rev 69)
@@ -100,7 +100,13 @@
     my ($dom, $outfunc);
     for my $trans (@transforms) {
         $trans->client($self->client);
-        ($dom, $outfunc) = $trans->transform($pos, $self);
+        if ($AxKit2::Processor::DumpIntermediate) {
+            mkdir("/tmp/axtrace");
+            open(my $fh, ">/tmp/axtrace/trace.$pos");
+            print $fh ($dom || $self->dom)->toString;
+        }
+        ($dom, $outfunc) = $trans->transform($pos++, $self);
+        $self->dom($dom);
     }
     
     return $self->new($self->client, $self->path, $dom, $outfunc);
@@ -128,4 +134,4 @@
     return AxKit2::Transformer::XPathScript->new($stylesheet, $output_style);
 }
 
-1;
\ No newline at end of file
+1;