| Pugs-Compiler-Rule documentation | Contained in the Pugs-Compiler-Rule distribution. |
Pugs::Compiler::Rule - Compiler for Perl 6 regexes
This document describes Pugs::Compiler::Rule 0.28 released on 31 Oct, 2007.
Un-named rules are objects:
use Pugs::Compiler::Rule;
my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
my $match = $rule->match( 'abc' );
if ($match) { # true
print $match; # "abc"
print $match->from; # 0
print $match->to; # 3
print $match->[0]; # "ab"
print $match->[0][0]; # "a"
}
Named rules are methods in a Grammar:
package MyGrammar;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';
Pugs::Compiler::Rule->install( rule => '((.).).' );
my $match = MyGrammar->rule( 'abc' );
Rules may have parameters:
$grammar->install(subrule => $source, { signature => $sig } );
$grammar->install(rule => q{
<subrule: param1, param2>
});
where $grammar is normally a Perl 5 package.
This module provides an pure Perl 5 implementation for Perl 6 regexes, which does not depend on the Haskell Pugs.
It is a front-end to several other modules:
Front-end Modules
Runtime Classes
Grammars
Code Emitters
Pugs::Compiler::Rule
isa Pugs::Compiler::Regex
This class (i.e. Pugs::Compiler::Rule) is a subclass of Pugs::Compiler::Regex and thus owns all the methods of its base class. See Pugs::Compiler::Regex for the detailed docs.
$rule = Pugs::Compiler::Rule->compile($p6_regex, $params)Specifically, this class overrides the compile
method of Pugs::Compiler::Regex which resets
the following options' default values:
ratchet => 1Here is an example:
$rule = Pugs::Compiler::Rule->compile(
'a*\w',
);
my $match = $rule->match('aaa');
# $match->bool is false since no backtracking
# happened
sigspace => 1Here is an example:
my $rule = Pugs::Compiler::Rule->compile(
'a b',
);
my $match = $rule->match('a b');
ok $match->bool, 'sigspace works';
is $match->(), 'a b', 'sigspace works (2)';
This is an experimental development version. The API is still in flux.
The set of implemented features depend on the ratchet switch.
The Pugs Team <perl6-compiler@perl.org>.
Please join us on irc.freenode.net #perl6 if you'd like to participate.
Copyright 2006, 2007 by Flavio Soibelmann Glock and others.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
| Pugs-Compiler-Rule documentation | Contained in the Pugs-Compiler-Rule distribution. |
use 5.006001; use strict; use warnings; package Pugs::Compiler::Rule; our $VERSION = '0.37'; use base 'Pugs::Compiler::Regex'; sub compile { my ( $class, $rule_source, $param ) = @_; $param = ref $param ? { %$param } : {}; $param->{ratchet} = 1 unless exists $param->{ratchet}; $param->{sigspace} = 1 unless exists $param->{sigspace} || exists $param->{s}; $class->SUPER::compile( $rule_source, $param ); } 1; __END__