From c765786984a7966b29eeb0477b3599d266f63836 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Mon, 13 Aug 2007 15:50:17 +0000
Subject: non andrà mai in questo modo...
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: svn://luxion/repos/WebCoso/trunk@274 fcb26f47-9200-0410-b104-b98ab5b095f3
---
 stest.pl | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/stest.pl b/stest.pl
index c468c87..5480f8f 100644
--- a/stest.pl
+++ b/stest.pl
@@ -4,6 +4,34 @@ use warnings;
 use Slay::Maker;
 use File::Next;
 use Path::Class;
+use Template;
+use File::Cache::Parsed;
+use Cwd 'abs_path';
+use Text::Restructured;
+use Text::Restructured::Writer::LibXML;
+
+my $stash={};
+my $template=Template->new();
+my $rest=Text::Restructured->new({},'WebCoso');
+
+my $fc=File::Cache::Parsed->new();
+$fc->add_parser(qr{\.rest\.tt2?$} =>
+                    sub {
+                        my ($name,$content)=@_;
+                        my $real_name=abs_path($name);
+                        my $output;
+                        $template->process($real_name,
+                                           {%$stash,name=>$name},
+                                           \$output);
+                        return $output;
+                    });
+$fc->add_parser(qr{\.rest\.txt$} =>
+                    sub {
+                        my ($name,$content)=@_;
+                        my $dudom=$rest->Parse($content,$name);
+                        return Text::Restructured::Writer::LibXML
+                            ->new->ProcessDOM($dudom);
+                    });
 
 sub expandTT {
     my ($maker,$target,$deps,$matches)=@_;
-- 
cgit v1.2.3