code.t

来自「这是一个DFA简化和生成LL(1)分析表的程序,自动生成表格及图形」· T 代码 · 共 180 行

# code.t

use strict;
use warnings;

use Test::More tests => 6;
use Test::Differences;

BEGIN { use_ok('re::DFA::Perl'); }

my $code = re::DFA::Perl->as_code('', 'match_empty');
eq_or_diff $code, <<'_EOC_';
sub match_empty {
    my $s = shift;
    return undef if !defined $s;
    my $pos = 0;
    my $state = 1;
    my $done;
    while (1) {
        my $char = substr($s, $pos, 1);
        if ($state == 1) {
            $done = $pos;
            last;
        }
        die "error: Unknown state: $state";
    } continue {
        $pos++;
    }
    if (!defined $done) { return undef; }
    substr($s, 0, $done);
}
_EOC_

$code = re::DFA::Perl->as_code('a', 'match');
eq_or_diff $code, <<'_EOC_';
sub match {
    my $s = shift;
    return undef if !defined $s;
    my $pos = 0;
    my $state = 1;
    my $done;
    while (1) {
        my $char = substr($s, $pos, 1);
        if ($state == 1) {
            last if !defined $char;
            if ($char eq 'a') {
                $state = 2;
                next;
            }
            last;
        }
        if ($state == 2) {
            $done = $pos;
            last;
        }
        die "error: Unknown state: $state";
    } continue {
        $pos++;
    }
    if (!defined $done) { return undef; }
    substr($s, 0, $done);
}
_EOC_

$code = re::DFA::Perl->as_code('a|b', 'match');
eq_or_diff $code, <<'_EOC_';
sub match {
    my $s = shift;
    return undef if !defined $s;
    my $pos = 0;
    my $state = 1;
    my $done;
    while (1) {
        my $char = substr($s, $pos, 1);
        if ($state == 1) {
            last if !defined $char;
            if ($char eq 'a') {
                $state = 2;
                next;
            }
            if ($char eq 'b') {
                $state = 2;
                next;
            }
            last;
        }
        if ($state == 2) {
            $done = $pos;
            last;
        }
        die "error: Unknown state: $state";
    } continue {
        $pos++;
    }
    if (!defined $done) { return undef; }
    substr($s, 0, $done);
}
_EOC_

$code = re::DFA::Perl->as_code('(a|)b*', 'match');
eq_or_diff $code, <<'_EOC_';
sub match {
    my $s = shift;
    return undef if !defined $s;
    my $pos = 0;
    my $state = 1;
    my $done;
    while (1) {
        my $char = substr($s, $pos, 1);
        if ($state == 1) {
            $done = $pos;
            last if !defined $char;
            if ($char eq 'a') {
                $state = 2;
                next;
            }
            if ($char eq 'b') {
                $state = 2;
                next;
            }
            last;
        }
        if ($state == 2) {
            $done = $pos;
            last if !defined $char;
            if ($char eq 'b') {
                $state = 2;
                next;
            }
            last;
        }
        die "error: Unknown state: $state";
    } continue {
        $pos++;
    }
    if (!defined $done) { return undef; }
    substr($s, 0, $done);
}
_EOC_

$code = re::DFA::Perl->as_code('(a|ba)*', 'match');
eq_or_diff $code, <<'_EOC_';
sub match {
    my $s = shift;
    return undef if !defined $s;
    my $pos = 0;
    my $state = 1;
    my $done;
    while (1) {
        my $char = substr($s, $pos, 1);
        if ($state == 1) {
            $done = $pos;
            last if !defined $char;
            if ($char eq 'a') {
                $state = 1;
                next;
            }
            if ($char eq 'b') {
                $state = 2;
                next;
            }
            last;
        }
        if ($state == 2) {
            last if !defined $char;
            if ($char eq 'a') {
                $state = 1;
                next;
            }
            last;
        }
        die "error: Unknown state: $state";
    } continue {
        $pos++;
    }
    if (!defined $done) { return undef; }
    substr($s, 0, $done);
}
_EOC_