perl-flat-cvs-notify

[<per...@li...>]

Update of /cvsroot/perl-flat/perl-flat/dev-scripts
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15936/dev-scripts

Modified Files:
	bdetest.pl 
Added Files:
	pregex-to-pfa.pl 
Log Message:
saving tonight's minor work :)

--- NEW FILE: pregex-to-pfa.pl ---
#!/usr/bin/env perl -l
use strict;

use lib qw(../lib);
use FLAT;
use FLAT::NFA;
use FLAT::Regex;
use FLAT::Regex::WithExtraOps;
use Data::Dumper;

# This is mainly my test script for FLAT::FA::PFA.pm

my $PRE = FLAT::Regex::WithExtraOps->new('ab+c*&(a+b)*');

print $PRE->as_string;

Index: bdetest.pl
===================================================================
RCS file: /cvsroot/perl-flat/perl-flat/dev-scripts/bdetest.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** bdetest.pl	23 Feb 2006 20:43:19 -0000	1.5
--- bdetest.pl	10 Mar 2006 04:04:33 -0000	1.6
***************
*** 4,11 ****
  use lib qw(../lib);
  use FLAT;
  use FLAT::Regex::WithExtraOps;
  use Data::Dumper;
  
! my $RE = FLAT::Regex::WithExtraOps->new('ab|c* & (a|b)*');
  
! print $RE->as_string;
--- 4,15 ----
  use lib qw(../lib);
  use FLAT;
+ use FLAT::NFA;
+ use FLAT::Regex;
  use FLAT::Regex::WithExtraOps;
  use Data::Dumper;
  
! # This is mainly my test script for FLAT::FA::PFA.pm
  
! my $PRE = FLAT::Regex::WithExtraOps->new('ab+c*&(a+b)*');
! 
! print $PRE->as_string;